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tenance or modification responsibilities. 



Restricted Distribution 



PREFACE 



This document desc 
and functions of the 
Lanquage Conversion P 
ponents, their functi 
flow among them. The 
of each component and 
to implement its func 
the program listing, 
intended to help the 
of the listing he req 



ribes the structure 
FORTRAN IV-to-PL/I 
rogram: its com- 
ons, and the control 
detailed organization 
the instructions used 
tions are described in 

This manual is 
user find any portion 
uires. 



The manual consists of eight sections. 
Section 1 is an introduction to the Lan- 
guage Conversion Program. Section 2 
describes the Control Phase of the program; 
sections 3, 4 r 5, and 6 describe the four 
logical phases into which the program is 
divided. 



The reader should have some familiarity 
with the contents of the following 
publications: 

IBM System/360 FORTRAN IV Language, Form 

C28-6515 
IlM_System^3 60_O£erating__S,ystem 1 __PL/I 

lUL-Iioaiammejrls.Guidei Form C 28- 6594 
I§.M_Slstem^3 60~Conversion_Aidsi FORTRAN 

IV-to-PL^I_Language_Conversign_Pro2 

gram_for_IBM_System^360_Op_erating 

Sy_stem2~Form""c33-2002 
IB £_S y.s t e m^3 6 0_P L </I Re f e re nc e_M a n u a 1 

Form C28-8201 

In addition, the reader would find it 
useful to be acquainted with the 
publications: 

IEM_System^3 60_O£erating_Sxstem i _Job 
Q2Q.trol_Lang,uaae i Form C28-6539 

ISM_Sy.stem^3 60_02erating_Sy;stem i _PL^I 
Lanc[uag i e_S£ecif ications^ Form 
Y33-6003. 



I 



fi£St_Edition_.£Janua,ry.. t _1 969.1. 

Specifications contained herein are subject to change from time to time. 
Any such changes will be reported in subsequent revisions or Technical 
Newletters. 

Request for copies of IBM publications should be made to your IBM repre- 
sentative or to the IBM branch office serving your locality. 

A form for reader's comments is provided at the back of this publica- 
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INTRODUCTION 



The FORTRAN IV-to-PL/I Language Conversion 
Program, henceforth referred to in this 
publication as "the LCP," is intended to 
facilitate transition to PL/I by converting 
"error- free" System/360 Operating System 
FORTRAN IV source programs into PL/I (F) 
programs. (For the purposes of this publi- 
cation, the converted PL/I programs are 
referred to as "target" programs.) The LCP 
is itself expressed, principally in PL/I (F) 
language, and can be compiled, using a 
System/360 Operating System PL/I ( F) com- 
piler, to give a System/360 machine code 
version. Note that certain routines are 
expressed in System/360 Operating System 
Assembly Language and are compiled using a 
System/36 Operating System (F) Assembler. 
The latter can then be used to convert into 
PL/I the FORTRAN programs written by the 
user. 

An "error-free" source program is one 
that meets the following reauirements: 

1. it consists of statements that are in 
strict conformity with the syntactic 
rules laid down in the publication IBM 
System/360_FORTRAN IV Language^ Form 
C28-6515 



in implementation (storage allocation, 
magnitude of data, eta.). 

The LCP is divided into a Control Phase 
and the following four logical phases: 

1. Initialization phase, which scans the 
FORTRAN source program and classifies 
the FORTRAN statements. 

2. Phase 10, which converts executable 
FORTRAN statements and builds various 
tables from the specification 
statement. 

3. Phase 20, (optionall which rearranges 
certain tables created during Phase 
10. 

4. Phase 30, which generates the PL/T 
declarations for the identifiers used 
in the program, together with all com- 
ments, statements and messages. 

It should be noted that, as far as 
possible : 

• Executable statements are converted one 
at a time. 



2. It has been successfully compiled by 
the user's FORTRAN TV compiler, giving 
a System/360 machine code version that 
produces results in accordance with 
the user's intentions. 



FORTRAN specification statements are 
converted by collecting declarations of 
source program identifiers. 



FORTRAN statements that do not conform 
to these rules of syntax (note 2 above) are 
not converted, and a message to that effect 
is printed in the output listing. A mes- 
sage is also issued when the conversion of 
a source statement is impossible for techn- 
ical reasons. 

Note that, the LCP will convert FOPTRAN 
IV source programs written for current IBM 
systems other than the System/360. In this 
connection, however, the user should note 
that: 



TABLES 



The LCP contains a number of tables. T'he 
way in which these tables are used by the 
individual routines is described in the 
relevant sections; the layout of the tables 
is shown in Appendix A. 



OVERALL LOGIC OF THE LCP 



• From the point of view of language, all 
FORTRAN IV source programs can be con- 
verted by the LCP, sub-ject to the 
restrictions indicated in Appendix C of 

IlM_System^3 60_Cpnyersion_Aidsi FOR- 

TRAN-IV- tg-PL/£I_Language_ Con version 
Program_for_IBM_System/360_Op.e rating 
System, Form C 33-200 2?" 

• There is no guarantee that the con- 
verted programs will be correctly 
executed. This is due to differences 



Figure 1 illustrates the overall internal 
logic of the LCP and shows the relationship 
among the Control Phase and the U logical 
phases: Initialization Procedure, Phase 
10, Phase 20, and Phase 30. 

After receiving control from the System/ 
360 Operating System, the Control Phase 
calls the Initialization Procedure, whose 
input is the FORTRAN source program on 
SYSIN. This phase examines the source pro- 
gram to determine whether the FORTRAN 
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statements are executable or not, initia- 
lizes various tables, and, as output, 
places FORTRAN statements on SYSUT1-. 
Optionally, a listing of the sourca program 
can be printed on SYSPRNT. Control returns 
to the Control Phase which calls Phase 10. 



Phase 10 converts, if possible, the 
executable FORTRAN statements and comments. 
Certain parts of these statements are 
placed in the tables with the contents of 
the specification statements. If the size 
of the tables exceeds the amount of main 
storage available, the tables are placed on 
SYSUT2. 

Control again returns to the Control 
Phase, which either calls Phase 20 (under 
conditions described in the section »Phase 
20') , or calls Phase 30 directly. 



Phase 20, if called, rearranges EQUIVA- 
LENCE and DATA tables ana. returns control 
to the Control Phase, which then calls 
Phase 30. 



Phase 30 takes the converted statements 
(on SYSUT1) and the tables (which may be on 
SYSUT2) as its input. It generates the 
PL/I declarations for the identifiers used 
in the program and edits the converted 
statements, together with all comments and 
messages; (its output is in the form speci- 
fied by the user) . 

On completion of Phase 30, control 
returns to the Return Procedure of the Con- 
trol Phase which either calls the Initiali- 
zation Procedure if another FORTRAN program 
must be converted, or returns to the 
Operating System. 
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Figure 1. Overall Logic of the LCP 
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CONTROI 



The LCP Control Phase (see Chart 001) 
receives control from the System/360 
Operating System by means of an EXEC con- 
trol card. 

The Control Phase invokes the execution 
of the Initialization Procedure which is 
the first logical phase of the LCP. 



If, on completion of Phase 30, another FOR- 
TRAN program is next in the job stream, the 
LCP retains control ani the Control Phase 
recalls the Initialization Procedure. Af- 
ter the last consecutive FORTRAN program in 
the -job stream has been processed, the Con- 
trol Phase restores control to the Operat- 
ing System. 



■ 



On completion of each logical phase of 
the program, the following phase is called. 
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Chart 001. Overall Logic of Control Phase 



1***11********* 

¥ ENTRY FROM * 

% OS/360 * 

* * 

*************** 



TR02 V 

*****B1 ********** 
*IPPR0 002 A1* 



***************** 



* PROCESSING OF * 

* FORTRAN * 

* STATEMENTS * 
***************** 



.♦EQUIVALENCE*. 

OR DATA 

♦.STATEBNTS.* 



* REARRANGE * 
♦EQUIVALENCE AND* 

* DATA TABLES * 
***************** 



TR01 V 

*****F 1********** 
*PH30 053A1* 

* -* 

* GENERATION OF * 

* PL/I PROGRAM * 

* * 
***************** 



****H1********* 

* RETURN TO * 
¥ OS/360 * 

* * 
*************** 
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INITIALIZATION PHASE 



The Initialization phase is divided in 
three processing routines: 

1* IPPRO, which initializes the settings 
of the switches in the LCP communica- 
tion area. 

2. GETCRD, which scans the source program 
and classifies the FORTRAN statement 
by type. 

3. IMPRO, which processes the IMPLICIT 
specification statement. 

The Initialization phase also makes use 
of the utility routines GETWRD, GETTBL, and 
PUTTBL. These routines are also used by 
Phase 10 and are described in the next 
chapter. 

The input to the Initialization phase is 
the FORTRAN source program on SYSIN. The 
output of this phase is the FORTRAN source 
statements on SYSUT1. 

If a FORTRAN source statement cannot be 
classified or if a syntactical error is 
detected during the scan, the statement is 
treated as a comment. 



PROCESSING ROaTINES 

This section contains detailed descriptions 
of the routines IPPRO, GETCRD and IMPRO. 
They are described in the followinq manner: 

• Purpose of the routine 

• Calling phase or routine ( s) 

• Entries (if more than one) 

• Processing 

• Routine (s) called 

• Exit from the routine 



IPPRO 



Chart 002 



Purpose: To initialize the status of the 
switches in the LCP communication area, 
according to the options specified by the 
user in his control cards. 



Called_by.: Control Phase 

Processing: For tha first FORTRAN program 
in a given batch, the contents of the PARM 
field in the EXEC control card indicates 
the status of the various switches. These 
are not modified when IPPRO is recalled to 
process subsequent FORTRAN programs in this 
batch. 

The LCP control cards, if any, are 
scanned: 

• any numeric field of two digits (maxi- 
mum) is considered as a data- set 
reference number, and is marked as a 
PRINT file. This information is kept 
for use in the other phases. 

• any FORTRAN mathematical function name 
is considered as a reserved word; this 
name is not converted into its equiva- 
lent built-in function name. 

The original LCP control information is 
kept during processing of a single batch 
unless the user specifies new LCP control 
cards for a subsequent FORTRAN program in 
the batch. 

For further information concerning the 
status of the switches, refer to the publi- 
cation FORTRAN_IV-to;PL/I_Language_Conver- 
sipn_Program_f or_TBM_SYstem/3 60_Op_erating_ 
Syjstem r Form C33-2002, Appendix E, "Control 
Card Options. " (Note that, for the sake of 
brevity, this publication will henceforth 
be referred to as "th^ language conversion 
manual.") 
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Routines called 



None. 



Exit 



^0 to GETCRD 



GETCRD £harts_003 £ ._00 4 r __0 05 i _0 06 x _0 07 



Purpose: To get a FORTRAN statement and 
classify it according to type. 

Called_by_: TPPRO 

Process in<i: The input to this routine con- 
sists of the FORTRAN source statements from 
SYSTN. Each FORTRAN statement is collected 
into a work area and two scans are 
performed. 

1. Classification scan: the statement is 
examined one character at a time from 
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left to right. It is classified as 
non-arithmetic if: 



• The following character seguence 
indicating the presence of an lit- 
eral field is found: 

,nH or /nH or (nH 

where n is a numerical value. 
Switches CSNU for n and CSHL for H 
are used. 

• The seguence A( )x where x is 

not an egual sign, is encountered. 
Switch CSNA is used. 



• The LCP creates a table (TFM) contain- 
ing FORMAT reference numbers, and 
corresponding data set attributes 
(PRINT, non-PRINT or both). 

In addition, SETCRD builds table TPD and 
uses it to generate an END statement at the 
end of each DO loop. Note that a logical 
IF statement is treated as two separate 
statements. 

The output from GETCRD is the FORTRAN 
source program on SYSUT1; FORTRAN state- 
ments with the same statement code are 
chained together. When an END card is 
encountered, this routine returns to the 
Control Phase. 



• There is a comma outside the 
parentheses. 

• There is an egual sign inside the 
parentheses. 

In the absence of these conditions, 
the statement is classified as 
arithmetic. 

2. Scan of Keyword Dictionary (KEYDIC) : 
the first four characters of each 
statement classified as non-arithmetic 
are compared to a list of FORTRAN key- 
words. This comparison determines the 
type of FORTRAN statement. Each 
source statement is given a statement 
code from 1 through 42 according to 
its type. 

If an IMPLICIT statement is detected, 
the routine IMPRO is invoked. 

When a FORTRAN statement is recognized 
as a READ, WRITE, PRINT, or PUNCH state- 
ment, the following additional processing 
takes place: 

• The data set and FORMAT reference num- 
bers are collected, if present. 



puttblT 



GETWRD, GETTBL, IMPRO, 



Exit: Control Phase 



IMPRO £har.t_0 08 



Pur£ose: To convert IMPLICIT statements. 



Called_by: GETCRD. 

Processing: The input 
the IMPLICIT statement 
WKBF. The two alphabet 
as limits of an implici 
are saved. The origina 
implicit table (TIM), w 
standard type of any na 
alphabetic character, i 
with the type given in 
ment. Any modification 
entered in this table. 



to this routine is 
in the work area 
ic characters used 
t type declaration 
1 entry in the 
hich contains the 
me beginning with an 
s updated to conform 
the IMPLICIT state- 
in length is also 



Routines called: GETWRD. 



Exit: GETCRD 
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Chart 002. IPPRO 



IPPRO 

* *** A 1*** ****** 

* ENTER * 

> * 

*************** 



.* FORTRAN 
->*. PROGRAM IN 

*. BATCH . 



**A3******* 

* INITIALIZE 
->* OPTIONS TO 

* STANDARD 

* * 

*********** 



I 



*****C 3* ********* 



***************** 

**** 

* * 

* D3 *- 

* * 
**•* 



?IRST) .*-- 



**** 

* * 

* J3 * 

* * 
**** 

IP08 



**E3******* 

( * 

APPROPRIATE 

FLAG 

k * 

*********** 



YES 


* 


ANOTHER 


X — * 


* 


OPTION 
* . 


V 




* . .* 


**** 




* NO 


* 






D3 * 




1 


* 






**** 




' 



*****H3********** 

* ASSIGN NEW * 

* VALUES TO * 

* CHARACTERS * 



***************** 
**** 



* J3 * 

* * 
**** 

>22 ? 

***J 3* *********** 

* READ FIRST * 
FORTRAN 

* STATEMENT * 

***************** 



***************** 



**K 4******* 

♦ INITIALIZE 4 
K STATEMENT 

LABELS AND 
P. STATEMENT 

* CODE * 
*********** 



*****K 5* ********* 



***************** 



***** 

♦ 003* 

* A1* 
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Chart 003. GETCRD (Part 1) 



***** 

*003* 
* A1* 

* * 



**** 

K * 

tc A3 * 



**A1 ******* 

* * 

♦INITIALIZATION** 
* * 

* * 
*********** 



* COLLECT A * 

* FORTRAN * 

* STATEMENT * 

* * 
***************** 



CD05 V 

*****C1 ********** 

*PLACE AN END OF* 
♦STATEMENT AFTER* 

* LAST CHARACTER * 

* * 
***************** 

**** ' 

♦003* ' 

* D1 ♦-> , FROM 

* * '005B4 

* ♦♦♦ ' 
CS10 V 

**D1******* 

♦ INITIALIZE * 
♦COUNTERS AND ♦ 

* POINTERS IN * 
* HKBF BUFFER * 

* * 
**♦♦♦****** 



**E 1 ♦♦♦**** 



*********** 

**** ' 

*003* ' 

* F1 *->'FROM 

* * • 00UB1 
**** * 



*****F1 ********** 

* 
*<- 



GET NEXT 

(FIRST) 

CHARACTER 



***************** 



.* FLAG *. 
.♦FOR SPECIAL*. 
IE ST . i 

*. (CSNA) .* 



DOES = 
FOLLOW ) 



**J1******* 

RESET FLAG 
FOR SPECIAL 
TEST (CSNA) 
* * 

*********** 



*****B2********** 

♦SUBTRACT 1 FROM* 

* PARENTHESIS ♦ <- 

* COUNTER (CSPR) ♦ 

* * 
***************** 



.♦PARENTHESIS^. 
. COUNTER=0 . 
♦ . (CSPR) .♦ 



♦ FIRST 
TIME EQUAL 

♦ . TO ZERO . 



♦*E2******* 

* * 

* SET FLAG 

* FOR SPECIAL 

* TEST (CSNA) 

* * 
*******♦♦♦* 



**** ' 

♦003* «<— 

♦ F2 ♦->«FROM 

* * '00«D3,E3 
**** ' 

CS17 V 

♦ *F2***^** 
* RESET * 

♦ HOLLERITH AND* 
* NUMERIC FLAGS * 

* (CSUL-CSNU) * 



*********** 



***************** 



♦ ♦*** 
*005* 

* A2* 



IS IT A 

RIGHT 
PARENS 



*****B5********** 

♦ ADD1 TO * 

* PARENTHESIS * 

♦ COUNTER (CSPR) * 

* * 
***************** 



IS IT 
AN EQUAL 
. SIGN 



.♦PARENTHESIS*. NO 

•>*. COUNTER=0 .* 

*. (CSPR) .* 



**D1**^+**^ 

* SET EQUAL ♦ 

* SIGN AND * 
FIRST FLAGS * 

* (CSEQ-CSFS) * 

* * 
********♦♦♦ 

• *♦♦* 

• * * 
X->* F2 * 

♦ ♦ 

**** 



NO .*PARENTHESIS*. 

— *. COUNTER=0 . 

*. (CSPR| .* 



V 
***** 

♦ 005 + 

* A2* 



♦ **** 
*00U* 

* A2* 



***** 
*005* 
* A2* 



**H5***^+^+ 

♦ SET * 

* HOLLERITH 
>* FLAG (CSHL) 

* ON 

* * 
*********** 

**** ' 
*003* • 

* J5 *->'FROM 

* * "OOtAI 
*♦ + ♦ ' 

V 
**J5******* 



* RESET 
X--* NUMERIC FLAG 
' * (CSNU) 
' * * 

V ******♦♦♦♦♦ 

♦ ♦♦* 

* * 

* F1 * 

* * 
***♦ 



* A3 >t 

* * 
♦ ♦** 
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Chart 004. GETCRD (Part 2) 
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* • 






* 
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* IS 


X — *. FLAG (CSHL) .*< 
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■ *. SET ON .* 
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*. . * 
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*. . * 


***** * YES 




* NO 


*003* • 




t 


* J5* ■ 




1 


* * ■ 




' 


* ■ 




V 


V 




. *. 


**B1******* 




B2 *. 


* * 




. * *. 


* SET NUMERIC * 




* IS IT A 


* FLAG (CSNU) * 


* 


LETTER 



I 



*********** 



***** 
*003* 
* F1* 



C3 *. 

K * 

IS IT H 



IS IT A *. 


YES 


.* HOLLERITH * 


NO 




OUOTE 


* X 


*. FLAG (CSHL) 




X 


. * 




*. SET ON .* 




V 


*. . * 




* . .* 




***** 


*. . * 


V 


* . .* 




♦ 003* 


* NO 


***** 

*O05* 

* A2* 

* * 

* 


* YES 




* F2* 
* * 

* 


V 




V 






.*. 




. *. 






E2 *. 




E3 *. 






. * * . 




.* IS *. 






IS IT *. 


NO 


.* NUMERIC * 


NO 




AN END MARK 


* X 


*. FLAG (CSHL) . 


* 


X 


. * 


1 


*. SET ON .* 




V 


*. . * 




* . .* 




***** 


*. . * 


V 


*. .* 




*003* 


* YES 
V 


***** 
*005* 
* A 2* 

* * 

* 


* YES 




* F2* 
* * 

* 



**F1+****** 
k SET * 

ARITHMETIC 
STATEMENT 
CODE 
* 4 

*********** 



YES .*EQUAL SIGN *. 
*. FLAG (CSEQ) .* 



*****F3********** 



***************** 



***** 

♦ 005* 

* G1* 



***** 
*00 5* 
* A 2* 



***** 
*005* 
* A2* 
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Chart 005. GETCRD (Part 3) 



* A2* 
* * 



GETCRD 

****A 1********* 
*» * 

* ENTER 4 

* 4 
*************** 



•FROM 

•003Ca,GI», H2 
•00l»D2,E2,P2,F3 
KEY-DIC V 

*****A 2* ********* 



***************** 



B2 


*. 






GETWRD 


041A1 




.* 






DEL 


♦.COLLECT 


1ST 


a. 


*- — X 


*. CHARS 


* 


' 


*. 


.* 






*. 


* 




V 


* 


ID 




**** 
* 

* E1 
* 

**** 



IS IT A 
FORTRAN 
KEYWORD 



*****E1 ********** 

* SET COMMENT * 

X->* CODE * X 

• * * 

' * * 

■ ***************** 



FROM 
*****00HF1 
*005*006D2,E2, 
* G1* F2 
* * 007A1.C1, 
■ E1,G1, 

• H1,J1 



3C20 V 

*****G 1********** 

* PLACE THIS * 

* STATEMENT ON * 

* UTILITY DATA *< 

* SET * 



**E2******* 

* * 
SET 

STATEMENT 
CODE 

* 4 
*********** 



***************** 



F3 *. 

YES .*" IS IT 

X *. I/O 

V *. STATEMENT. 

***** *. .* 

*006* *. .* 

* A2* * NO 

* * * 



V 
. *. 

G3 *. 
.* *. 

IS IT *. 
IF 
.STATEMENT.* 



*. 



*. 



♦ YES 



.* DOES 

NUMERIC 
♦.FOLLOW , 



*****J3 ********** 



***************** 



BC2 6 V 

*****K3*t******** 

♦ SAVE SECOND ♦ 

* PART OF * 
* STATEMENT AND * 

* POINTERS * 

♦ * 
***************** 



♦ *** 

* 4 
k A4 4 

* 4 

♦ *** 



**Bt*****+* 

* RESTORE ♦ 
♦ SECOND PART 4 
♦WITH POINTERS^ 

♦ ♦ 

*********** 



V 
***** 

♦ 003^ 

* D1* 



*****B5 ********** 



* GENERATE END 

* STATEMENT 



***************** 



**** 

* 4 
k G1 * 

* 4 
**** 



V 

♦ ♦♦♦* 
*003* 

* A1* 



.* IS IT A 
->*. TYPE 

*. KEYWORD 



****E5********* 

* RETURN * 

* 4 
*************** 



**** 

* * 

* G1 * 

* * 
**** 



**3 t******* 

k 4 

SET 

STATEMENT 

CODE 

k 4 

*********** 



*♦** 

♦ ♦ 

♦ G 1 * 

♦ * 
**** 



* PROCESS * 

* IMPLICIT * 

* STATEMENT * 
***************** 



***♦ .♦ ♦. 

♦ ♦ NO .* COMMENT *. 

* D5 *< *. CODE 



♦ G1 4 
k 4 

**** 
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Chart 006. GETCRD (Part 4) 



BC25 
YES , 



BC50 V 

*****B1 ********** 



***** 
•006* 
* A2* 



WRITE *. 
OR PRINT 
. STATEMENT.* 



I 



*****B 2* ********* 



***************** 



***************** 



**C2******* 



*********** 



X 

V 


D2 *. 

GETWRD 0K1A1 

DEL .* *. NOB 

*. KEYWORD .* 


X 

V 


***** 
♦005* 
* G1* 


* . .* 
*. . * 
* ID 


***** 
*005* 
* G1* 



***** 
*O05* 
* G1* 



-*.GET NEXT ITEB.*- 



***** 

♦ 007* 

* F1* 



X 

V 
***** 

♦ 005* 

* G1* 


--*. DELIMITER ( .* — 

*. . * 

*. .* 

*. . * 

* 


X 

V 
***** 

♦ 007* 

* A1* 
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Chart 007. GFTCRD (Part 5) 



***** 

*007* 
* A1* 



A1 *. 

GETlTRD 0K1A1 

MUM .* *. DEL 

X *. GET DATA SET .* 

*. REF NO .* 



*. 



*. 



***************** 



***** 
*005* 
* G1* 



***** 
*005* 
* G1* 



*****D1* ********* 

* DEPENDING ON * 
*FILE SET PRINT * 

* OR NON PRINT * 

* SWITCH * 

* * 
***************** 



E1 *, 




GETWRD 041A1 




ID .* *. DEL 






X 


* * . REF . * 


V 


' *. . * 


***** 


V *. .* 


*005* 


***** * NUM 


* G1* 


♦005***** ' 




* G1**007* • 


* 


* * * F1 *-><FROM 




* * * ■ 006E2 





***************** 



.♦REFERENCED *. 

, BY PRINT AND . 

*.NON PRINT.* 

♦ .FILE . * 



***** 
*005* 
* G1* 



H1 *. 
. * TYPE *. 
.♦REFERENCED 
. IN CURRENT 
*. FILE 



***** 
*005* 
* G1* 



***************** 



***** 
♦005* 
* G1* 
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Chart 008. IMPRO Routine 



IHPRO 

****A 1********* 

* * 

* ENTER 4 

* * 
*************** 

**** 

* * 

* B1 *-> 

* * 
**** V 

• *. 

B1 *. 

GETHRD 0HU1 

DEL .* *. HUH 

X--*.GET KBIT HORD.* 



**** 
¥ * 

K J2 4 

* * 

**** 



*****C1* ********* 



***************** 



NO 


* 


IS *. 


X—* 




THERE AN .* 


,' 


* 


ASTERISK .* 
*. . * 


V 




*. .* 


**** 




* YES 


* 






G1 * 




• 


* 




■ 


**** 




V 
. *. 

E1 *. 


GETHRD 041A1 








X—* 


GET HE XT WORD.* 


,' 


* 


. * 
*. . * 


V 




*. .* 


**** 




* NUM 


* 






32 * 






* 






*+** 






IH10 




V 


*****F1 ********** 



***************** 

**** 

* * 

* G1 *-> 

* * 
***• 

V 
*****G1********** 



***************** 
**** 



* H1 4 

* 4 
***• 



041A1 



X— *.GET SB XT UORD.*- 



**** 
■ * 


* ID 


J2 * 


i 


* 




**** 






V 




. *. 




J1 *. 




. * IS *. 


NO 


* THERE A *. 


X--* 


HINDS .* 


■ 


*. SIGN .* 




*. .* 


V 


*. ..* 


**** 


* TES 


* 




B3 • 




* 




**** 






V 


*****K 1********** 


* 


* 


*KEEP LETTER AS * 


* 


LONER LIMIT * 



*****J2 ********** 



***************** 



*****B3********** 



***************** 



C3 *. 

¥ IS 4 

THERE A 
LONER 
LIMIT 

► . .4 

*. .* 



*****D3********** 

* * 

* REPLACE LONER * 
♦LIMIT BY OPPER * 

* LIMIT * 

* * 
***************** 



■ 



IM09 V 

*****£ 3* ********* 
♦CHANGE TYPE AND* 

* LENGTH IN * 
•IMPLICIT TABLE * 

* (TIM) * 

* * 
***************** 



F3 *. 

.*IS IT A*. 

.* RIGHT *. 
*. PARENTHESIS . 


NO 
* X 


*. .* 




* . .* 

*. .* 

* YES 


? 

**** 


i 


* * 

* H1 * 




* * 


V 


• **• 


. *. 

G3 *. 

GETHRD 041A1 

*.GET NEXT HORD. 


**** 
ID * 
• >* J2 


*. .* 


* 


*. .* 


**** 


* . .* 
* DEL 





**** 

0*4 

— >* B1 » 

* * 

**** 



IN 20 

V 

****J3*«* ****** 

— >* RETURN * 

* 4 

*************** 



***************** 



¥ H1 4 
¥ 4 

**** 
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PHASE 10 



Phase 10 (see Chart 009) converts execut- 
able FORTRAN statements and builds tables 
from the specification statements. Certain 
information collected during the scan is 
saved in tables to be processed subsguently 
by Phase 20 and/or Phase 30. 

The input to Phase 10 is the FORTRAN 
statements placed on SYSUT1 by the Initia- 
lization Procedure. 

Phase 10 passes control to the appropri- 
ate statement processing routine, which 
processes a chain of statements at a time 
by attempting to convert as much of the 
statements as possible into the correspond- 
ing PL/I statements. These routines fall 
into one of two categories: 

1. Specification statement processing 
routines, which enter in the dic- 
tionary (TDI) any identifier that 
appears within a specification state- 
ment. The dictionary includes speci- 
fication information and pointers to 
tables containing additional informa- 
tion for each entry. The routines 
included in this category are the 
following : 



BLPRO 
CMPRO 
DAPRO 
DMPRO 



EDPRO 
EQPRO 
EXPRO 
FNPRO 



NLPRO 
YIPRO 



Executable statement processing rou- 
tines, which convert executable state- 
ments and place the result on SYSUT1 
in external (printable) form. The 
routines included in this category are 
the following: 



ALPRO 
ASPRO 
CAPPO 
COPRO 
CTPRO 



DOPPO 
FTPPO 
GTPRO 
IFPPO 
IOPRO 



PSPRO 
RTPRO 
STPRO 



Not,©*' Routines GETTBL and PUTTBL are also 
used by Initialization Procedure, Phases 20 
and 30. 



A detailed description of each routine 
will be found in the individual section 
allotted to it. 



Executable statements that cannot be 
converted at all, i.e. the statements 
BACKSPACE and ENDFILE (see Appendix D of 
the language conversion manual) are placed 
on SYSUT1, together with an appropriate 
messa ge. 

Comments cards in the FORTRAN program 
are placed on SYSUT1 , in the same way as 
executable statements. If the sequence */ 
appears in the text of a comment, it is 
replaced by the sequence *-. 

Any syntactical error in a source state- 
ment detected during the scan terminates 
the conversion of the statement concerned. 
The statement is treated as a comment and a 
diagnostic message is issued. No further 
assumption is made concerning the possible 
effect of the erroneous statement on the 
rest of the program. 

Source program identifiers are checked 
to ensure against conflict with PL/I built- 
in function names or reserved words. In 
the event of possible conflict, the identi- 
fier is entered in the dictionary (TDI) 
with an appropriate flag. Moreover, if the 
identifier occurs within the text of an 
executable statement, a substitution name 
created by the LCP is automatically 
generated during conversion. 

On completion of Phase 10, control 
returns to the Control Phase. 



In addition, Phase 10 makes use of a 
number of utility routines which perform 
simple and frequently recurring functions, 
such as collecting characters, placing 
information in tables, etc. These routines 
are the following: 



SPECIFICATION STATEMENT PROCESSING ROUTINES 



ARPRO 

ENTTDT 

ERMS 

GETTBL 

GETWRD 



LTCOL 

PUTTBL 

SLPAR 

SPDIM 

SPDTA 



SPPRO This section contains detailed descriptions 
SPSUB of the routines used by Phase 10 to process 
XTBPRO FORTRAN specification statements. In order 

to simplify reference, the routines appear 

in alphabetical order. 
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BLPRO Chart 010 DMPRO _ _ Chart 013 



Purpose : To convert BLOCK DATA statements. ESIEOse: To convert DIMENSION statements. 



Called_bv.: PH10 

Processing: The input to this routine is 
the BLOCK DATA statement in the work area 
WKBF. A switch (BLSW) is set in this rou- 
tine to be tested during the processing of 
the END statement (EDPFO) in order to 
determine whether the next END statement is 
part of a BLOCK DATA subprogram. A BEGIN 
statement is generated on SYSUT1. 

Routine called: XT B PRO. 

Exit: Calling routine. 

CM PRO Chart_0_11 

Purpose : To convert COMMON statements. 

Called_by_: PH10 

Hnoce ssing_ : The input to this routine is 
the COMMON statement in the work area WKBF. 
The common block name is collected and 
placed in table TBK with a pointer to the 
list of variables. The list of variables 
is placed in table TCM and the names of 
variables are placed in the dictionary. 

Routines_Called: ENTTDI, ERMS, GETWRD, 
GETTBL, SPDIM, PUTTBL. 

Exit! Calling routine. 



Called_by.: PH10 

Process inc[ : The input to this routine is 
the DIMENSION statement in the work area 
WKBF. The part of the statement following 
the keyword DIMENSION is scanned and the 
array name is entered in the dictionary 
(TDI) if it is not already there. The 
dimension information is collected and 
placed in table TDM and a pointer to this 
table entry is placed in the dictionary. 
In the case of an array name already in the 
dictionary, the existing entry is updated. 

Routines called: ENTTDI, ERMS, GETWRD, 
GETTBL, ~PUTTBl7 SPDIM. 

Exit: Calling routine. 

E D P R Ch a r t _0 1 4 

Purpose: To convert END statements. 

C al 1 ed_by_: PH 1 

iliocfjisinci: The input to this routine is 
the END statement in the work area WKBF. 
The END statement is converted and placed 
on SYSUT1. 

£ou tin e_called : XTBPRO. 

I^iti Calling routine. 



I 



DAPRO 



Chart 012 



EQPRO £j}art_01.5 



Purpose: To convert DATA statements. 



Called_by.: PH10 



Processing : 
the DATA sta 
The list of 
collected an 
an element, 
the array, i 
its address 
output from 
dictionary ( 
entry in tab 
variables an 



The input t 
tement in th 
elements to 
d if necessa 
relative to 
s computed. 
are placed i 
this routine 
TDI) for eac 
le TDA for t 
d their lite 



o this routine is 
e work area WKBF. 
be initialized is 
ry, the address of 
the beginning of 

The element and 
n table TDA. The 

is an entry in the 
h new name and an 
he names of 
ra 1 va 1 ue . 



Foutines_C ailed: ENTTDI, EPMS, GETWRD, 
GETTBL, PUTTBL, SPSUB, SPDTA. 

Exit: Calling routine. 



Purpose: To convert EQUIVALENCE 
statements . 

Called_by: PH10 

L£Ocessinc[: The input to this routine is 
the EQUIVALENCE statement in the work area 
WKBF. The elements of the statement are 
collected and the eguivalenced variables 
are placed in the eguivalence table TEQ and 
in the die tionary- TDI . If necessary, the 
address of an element relative to the 
beginning of an array is computed. The 
element and its address are placed in table 
TEQ. 

l?.iitines_called: ENTTDI, ERMS, GETWRD, 
GETTBL, ~PUTTBL, SPSUB. 

Exit: Calling routine. 
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EXPRO 



Chart 016 



NLPRO 



Chart 018 



Purpose: To convert EXTERNAL statements. 



Called_bY: PH10 



Processing: The input to this routine is 
the EXTERNAL statement in the work area 
WKBF. The part of the statement following 
the keyword EXTERNAL is scanned. The sub- 
program names are checked for validity and 
added to the dictionary (TDI) with flags 
indicating their class, type and usage. 



Routines, called: 
PUTTBL. 



ENTTDI, EPMS, GETWPD, 



Purp_gse: To convert NAMELTST statements. 
Called_by_: PH10 



£E2££ssin 3 : The input to this routine is 
the NAME LIST statement in the work area 
WKBF. The namelist name is collected and 
placed in table TNL with a pointer to the 
list of variables. This list is placed in 
table TNV and the variable names are placed 
in the dictionary (TDI). 



E°utines_called : 

GETWRD, PUTTBL. 



ENTTDI, ERMS, GETTBL, 



Exit,! Calling routine. 



Exit: Calling routine. 



YTPRO 



Chart 019 



FNPPO 



Chart 017 



P_.urp.ose: To process explicit type 
statements . 



Pu.rp.ose: To convert FUNCTION, SUBROUTINE, 
and ENTRY statements. 



Called_by_: PH10 



Entries: There are three entry points to 
this routine: FNPRO, SBPRO, and ETPRO. 
The input, at entry point FNPRO, is the 
FUNCTION statement in the work area WKBF; 
at entry point SBPRO it is the SUBROUTINE 
statement: at entry point ETPPO it is the 
EN^RY statement. 



EE2S®ssj.n3: The procedure name is placed 
on S¥SUT1 with the keyword PROCEDURE (or 
ENTPY in the case of an ENTRY statement), 
followed by the formal parameters (uncon- 
verted) and the nonstandard return specifi- 
cations (converted) . A name followed by a 
number is assigned to each nonstandard 
return. This number represents the seguen- 
tial number of each return within the para- 
meter list. An additional formal parameter 
is created for a function subprogram and 
this name is entered in the dictionary 
(TDI) . The converted statement is placed 
on SYSUT1. 



Eoutines_called: ENTTDI, ERMS, GETWRD, 
PUTTBL, SLPAR, XTBPRO. 



Exit: Calling routine. 



Called_by_: PH10 

Entries: This routine has five entry 
points; the input to it consists of the 
following type statements: INTEGER (entry 
point YIPRO) , REAL (entry point YRPRO) , 
COMPLEX (entry point YCPRO), LOGICAL (entry 
point YLPRO) , DOUBLE PRECISION (entry point 
YD PRO) . 

P-IocssSiM 2 Tne "type an( i length specifica- 
tions of the input statement are saved. 
The length specification, the variable 
names, and the initial values, if any, are 
then scanned. The variable names are 
entered in the dictionary (TDI) , with spe- 
cification information and pointers to 
table TDM, and the initial values are pro- 
cessed by the routine SPDTA. 



2.2Ii£il! e s.ca 1 led ' 
PUTTBL7 SPDTA. 



ENTTDI, ERMS, GETWRD, 



S£i £ : Calling routine. 



EXECUTABLE STATEMENT PROCESSING ROUTINES 



This section contains detailed descrip- 
tions of the routines used by Phase 10 to 
process executable statements in the FOR- 
TRAN source program. The organization of 
this section is the same as that of the 
preceding section. 
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ALPRO 



Chart 020 



Purpose: To convert assignment statements. 
Called by: PH10 



Processing: The input to this routine is 
the assignment statement in the work area 
WKBF. The part of the statement located to 
the left of an equal sign is tested to 
determine if it is a variable, an array or 
a statement function name. Then: 



P.E2£Ss§§il*2 : Tne input to this routine is 
the ASSIGN statement in the work area WKBF. 
The statement number following the keyword 
ASSIGN is collected and saved. The word TO 
is bypassed and the variable is placed in 
the dictionary (TDI) . The converted state- 
ment is placed on SYSUT1 . 



SSHiine s_call ed : 

puttbl7~xtbpeo. 



ENTTDI, ERMS, GETWRD , 



I 



l£Lt: Calling routine. 



1. a) If it is a variable, the name is 
placed in the dictionary (TDI) . 

b) If it is an array, the subscript 
routine (SPPRO) is called. 

2. If the name appearing to the left of 
an egual sign is followed by elements 
between parentheses and has not been 
given any dimension, it is a statement 
function name. A PL/I procedure 
statement is generated and the para- 
meter list is processed. The pointers 
to parameter entries in the dictionary 
(TDI) are saved in an argument table. 
These pointers are placed on SYSUT1 
after the PL/I PROCEDURE statement; 
they are separated by commas and fol- 
lowed by a semi-colon. The LCP , 
then, generates the following 
statements: 



CAPRO 



Chart 022 



Purp_ose: To convert CALL statements. 



Called, by.: PH10 



P£2S£§SiH3 : Tne input to this routine is 
the CALL statement in the work area WKBF. 
The FORTRAN CALL statement is converted 
into the PL/I CALL statement. The latter 
is placed on SYSUT1 followed by the subpro- 
gram name and its arguments, which are pro- 
cessed in the routine ARPRO. 



RETURN (<expression>) ; 

END; 

The routine ARPRO is called to process the 
expression located to the right of the 
egual sign. 

The converted statement is placed on 
SYSUT1. 



Ro u t in es_c ailed: ARPRO, ERMS, ENTTDI, 
GETWRD, XTBPRO, LABPRO, PUTTBL. 

Exit! Calling routine. 



COPRO 



Chart 023 



S out iD.es_c ailed : ARPRO, ENTTDI, ERMS, 
GETWRD, PUTTBL, SPPRO, XTBPRO. 



Exit: Calling routine. 



Purpose: To process comments cards. 



Called_by_: PH1 

Pl22^ssing : The input to this routine is 
the comments card. The comments card is 
copied onto SYSUT1 , the delimiters used 
being: /* for the beginning and */ for the 
end. 



ASPRO 



Chart 021 



Pu.EP.2se: To convert ASSIGN statements. 
Called_by_: PH10 



The */ sequence, where it occurs within the 
text of a comment, is replaced by the Re- 
sequence. 

B.2Mii ne_ca 1 led : LTCOL. 

Exit: Calling routine. 
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CTPRO Chart_024 

Purpose: To convert CONTINUE statements. 

Called_by_: PH10 

E£2£§§§iH3 : T he input to this routine is 
the CONTINUE statement in the work area 
WKBF. If a label is associated with the 
CONTINUE statement, this statement is con- 
verted into a semi-colon. The label and 
the semi-colon are placed on SYSUT1 . If no 
label is attached to the statement, this 
statement is ignored. 



FTPRO 



Chart 026 



Jtou tines _ca 1 1 ed : 
LABPRO. 



ERMS, GETWRD, XTBPRO, 



E xit_C alii n2_rou tin e , 



DOPRO 



Chart 025 



Purpose: to convert DO statements. 

Called_by_: PH10 

P£ocessinc[: The input to this routine is 
the DO statement in the work area WKBF. 
The statement number specifying the end of 
the DO loop is ignored. The DO index is 
collected and placed on SYSUT1. The DO 
parameters (PARI, PAR2 r PAR3) are collected 
and saved. If one of the two limits is 
variable, switch DOSW is set on. Then, one 
of the following three PL/I statements is 
generated : 

1. If one of the limits is variable: 

DO index = PARI TO MAX (PARI, PAE2) BY 
PAR3; 

2. If the limits are constant and PARI is 
less than PAR2: 

DO index = PARI TO PAR2 BY PAR3; 

3. If the limits are constant and PARI is 
greater than or egual to PAR2: 

DO index = PAF1; 

The output from this routine is the con- 
verted DO statement on SYSUT1 . 



lout ines_cal led : ERMS, GETWRD, PUTTBL, 
XTBPR07~LABPR0, ENTTDI. 



Purpose: To convert FORMAT statements. 



Called_by.: PH10 



Processing: Tne input to this routine is 
the FORTRAN FORMAT statement in the work 
area WKBF. The FORTRAN format codes are 
translated as follows: 

A to A 

D E 



with call to LBLNK if BLKZR option 
is on (see Appendix B) 

with a warming message 

with call to LBLNK if BLKZR option 
is on (see Appendix B) 



B with a warning message 

Z with a warning message. 

SKIP(n) where n is the number of 
consecutive slashes 

COLUMN( ) 

X 



Exit: Calling routine. 



A string of characters appearing with L ! and 
guotes codes are replaced by an A-format 
code with the number of characters con- 
tained in the string. 

The field count and the decimal count are 
enclosed in parentheses and the period is 
replaced by a comma. 

COLUMN (1) is generated at the beginning of 
each PL/I FORMAT statement, to force the 
end of the current record. 

The carriage control character read at th^ 
beginning of the FORMAT statement and after 
a slash is converted into the appropriate 
PL/T statement (PAGE, SKIP or CCfUHN). 

The contents of the FORMAT statpnient is 
saved in a packed form, "psck e^_FOhM AT_^ f in 
the following way: 

• n ( format-code. 

The left parenthesis is given an 
internal code • *• and saved with the 
associated iteration factor. 

• Character-strings (•-• or nH) 
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The string is collected and placed in 
table TDT. 

The pointer to the entry in table TDT is 
then associated with an LCP-created 
variable which is saved in tabla TDU. 

A reference to this entry in table TDU is 
saved in packed format following the 
internal code P. 

• A format-code 

The total number of successive A-format 
codes not separated by any other code, 
by a character string, or by a left 
parenthesis, is placed in packed FORMAT 
after the internal code A. 

• D r E, F, G, I, L, Z format-codes 

The total number of successive items 
associated with these codes and not 
separated by any of the orevious ones 
is saved in packed FORMAT with the 
internal code N. 

• Right parenthesis 

A riqht parenthesis is used as a packed 

FORMAT internal code to indicate the 

end of an iteration group and of packed 
FORMAT. 

Packed FORMAT information is placed in 
the table TDT and the pointer to the 
correspondinq entry is saved with the 
entry in table TFM. 

If the FORMAT statement does not con- 
tain any A-format code or character 
strinq, the packed FORMAT is not saved. 

The converted PL/I FORMAT statement is 
placed on SYSUT1. The tables TFM and 
TDU are updated (see IOPRO for use of 
these tables) . 

Fiqure 2 illustrates tables TFM, TDT, 
and TDU. 



Routines called: ERMS, GETWRD, LTCOL, 
XTBPRO, GETTBL, PUTTBL, LABPRO. 

Exit.! Callinq routine. 



GTPRO Chart_027 

Purpose: To convert GO TO statements. 

Called_by;: PH10 

Processing: The input to this routine is 
the GO TO statement in the work area WKBF. 



This routine first tests what type of GO TO 
statement is concerned. Then, 

1. In the case of an unconditional GO TO 
statement, the PL/I statement "GO TO 
EXTLABn" is place! on SYSUT1. 

2. In the case of an assigned GO TO 
statement, the PL/I statement "GO TO 
variable" is placed on SYSUT1. An 
entry for the variable is made in the 
dictionary (TDI) . 

3. In the case of a computed GO TO state- 
ment, the following PL/I statement is 
placed on SYSUT1: 

IF (<index><=<number of parameters> 
&<index>>0) THEN GO TO BRANCHi 
(<index>) 

The index is placed in the dictionary. 
An entry in the dictionary is also 
created for the sequence number asso- 
ciated with th8 label BRANCH, with a 
pointer to table TDT, which contains 
the list of the GO TO parameters. 

The output from this routine is an updated 
entry in the dictionary (TDI), an entry in 
table TDT in the case of a computed GO TO 
statement, and a converted PL/I statement 
on SYSUT1. 



Routines_called: ENTTDI, ERMS, GETWRD, 
PUTTBL, XTBPR07 LABPRO, BRNPRO. 

S.2£lil Calling routine. 



IFPRO 



Chart 028 



Purp_ose: To convert IF statements. 



Called_by_: PH10 

JEE.2.2§ss iH3 : Tne input 
the IF statement in the 
The FORTRAN IF statemen 
a PL/I IF statement and 
followed by the arithme 
cessed by the routine A 
if the IF is an arithme 
branch labels are analy 
taking into account tha 
three branch labels an3 
statement immediately f 
put is the PL/I state ma 



to this routine is 

work area WKBF. 
t is converted into 

placed on SYSUT1, 
tic expression pro- 
RPRO. In addition, 
tic one, the three 
zed and converted, 
relationship of the 
the label of the 
ollowing. The out- 
nt on SYSUT1. 



Routines called: ARPRO, ERMS, GETWRD, 
XTBPR07 LABPRCJ7 BKNPRO. 

Exit: Calling routine. 
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IOPRO 



Charts 029, 30 



Purpose: To convert input/output 
statements. 

Callea_bx: PH10 

£j^cessi.ng: The input to this routine is 
input/output statement in the work area 
WKBF. 

The first part of the converted statement, 
for READ or WRITE, respectively, is: 

PUT FILE (FT nF01) or GET FILE (FTnFOI) 

where n is the data-set reference number of 
the FORTRAN statement. 

This part of the converted statement may be 
preceded by ON conditions, if necessary. 

If the ERROR option is present, the routine 
generates the statement ON TRANSMIT. 

If the END option is present, the routine 
qenerates the statement ON ENDFILF. 

If the NAMFLIST option is present, the rou- 
tine qenerates DATA followed by the list of 
variables. If this option is not present, 
the routine qenerates the EDIT option fol- 
lowed by the data list. 



If the end of packed FORMAT information 
is reached before the end of the I/O 
list, the processinq described above 
qoes on from the last * which corres- 
ponds to the last pair of parentheses 
of level-1 . 



This processinq stops when the end of 
the I/O list is reached or when a DO 
loop in the T/0 list is encountered. 

• §.mp_ty__I/g_list 

If there is no I/O list, the packed 
FORMAT information is checked to deter- 
mine whether an LCP-created variable or 
onlv a carriaqe control option (SKIP, 
PAGE) need be generated. 

If there is no packed FORMAT informa- 
tion associated with a FORMAT 
reference, the I/O statement is con- 
verted directly into PL/I. 

No conversion occurs if data set or 
FORMAT references are not integer con- 
stants, or if there is no FORMAT 
reference. 

Figure 2 illustrates tables TFM , TDT, 
and TDU. 



The output from this routine consists of 
the appropriate PL/I input/output state- 
ments on SYSUT1. The data set and FORMAT 
reference numbers are saved. The corres- 
pondincr table TFM and packed FORMAT entries 
are collected. 

Each element of the I/O list is asso- 
ciated with a packed FORMAT element. 

• N code 

An N code indicates the number of 
variables in the I/O list which are 
placed into the PL/I converted 
statement. 

• A code 

An A code indicates the number of 
variables in the I/O list which are 
placed into the converted PL/I state- 
ment. The DICTIONARY entries of these 
variables are flagged as type 
CHARACTER. 

• P code 

When a P code is encountered, the 
corresponding entry is table TDU is 
collected. The LCP-created variable is 
inserted in the I/O list. 



L- 



TFM 



Format Reference Label 



Kind oF Data Set Referencing 



Pointer to "pa eked FORMAT' 



TDT 



"Packed FORMAT" 




Character String 



TDU 



LCP Variable Name 



Pointer to character string 



Fiqure 2. Tables TFM, TDT, TDU 
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Routines called: ENTTDI, ERMS, GETWRD, 
PUTTBL, XTBPRO, LABPRO, BRNPRO, GETTBL . 

Exitj. Calling routine. 



PSPRO 



Chart 031 



To convert PAUSE statements. 

Called by: PH10 

Processing: The input to this routine is 
the PAUSE statement in the work area WKBF. 
The field following the keyword PAUSE is 
placed in the converted statement on 
SYSUT1. This field can be a blank, a numb- 
er or a character string. 



Routines, called : 

XTBPRO, LABPRO. 



ERMS, GETWRD, LTCOL, 



Exit: Calling routine. 



scanned for significant data. If a 
character string is pressnt, it is placed 
with the converted statement on SYSUT1. 



?_2Miines_ca. lied : 
LABPRO 



ERMS, GETWRD, XTBPRO, 



Exit! Calling routine. 



UTILITY ROUTINES 



I 



This section contains detailed descrip- 
tions of the utility routines used by Phase 
10. The organization is the same as that 
of the two preceding sections. 



ARPRO 



Charts 034, 035, 036, 037 



RTPRO 



Chart 032 



Purpose: To convert RETURN statements. 

Called_by_: PH10 

Processing: The input to this routine is 
the RETURN statement in the work araa WKBF. 
The data following the RETURN statement is 
collected. If this field is blank, the 
RETURN statement is placed on SYSUT1. If 
the field is a constant or a variable, a 
transfer is made to the return parameter 
created or to an array of returns. The 
names created, together with a reference to 
their initial values, are entered in the 
dictionary (TDI). 



Routine s_cal led : 
XTBPRO, LABPR07 



ENTTDI, GETWRD, PUTTBL, 



Exit: Calling routine. 



STPRO 



Chart 033 



PURPOSE: To convert STOP statements. 

Called by: PH10 

Processing: The input to this routine is 
the STOP statement in the work area WKBF. 
The field following the keyword STOP is 



Purpose: To convert arithmetic or logical 
expressions. 

Called_by_: ALPEO, CAPRO, IFPRO. 

P.I22§ssina: The input to this routine is 
the arithmetic or the logical expression in 
the work area WKBF. The variable names are 
placed in the dictionary (TDI) and the ele- 
ments of the arithmetic or logical expres- 
sion are placed on SYSUT1 . 

The expression is scanned twice in the FOR- 
TRAN statement. For a procedure CALL 
statement or a function call, all the argu- 
ments are scanned by each scan. 

£i£st_Scan: (Charts 034, 035, 036) 
During the first scan, a "pushdown table" 
is used. Each entry in this table con- 
tains: the pointers to the beginning of a 
sub-expression, the type of the sub- 
expression (initialized integer) , and the 
previous delimiter (operator or other) . 

An entry is added to the "pushdown 
table" when one of the following is 
encountered: 

• a left parenthesis 

• a function name 

• a slash 

• a NOT operator 

These items constitute the beginning of 
a subexpression. 
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An entry is withdrawn from the "pushdown 
table" when one of the following is 
encountered: 



• a right parenthesis 

• a comma in a list of arguments 

• a logical or relational operator 

• an end of expression 

These items constitute the end of a 
sub- expression. 

During this scan, the entries in the 
pushdown table are updated according to the 
type of variable and the priority of the 
operator. 

If integer division is found, pointers 
that indicate where to make an insert are 
taken from the pushdown table and are saved 
in an internal area (Insert Table) . 

The Insert Table is also used for 
inserts other than those for integer divi- 
sion. It contains pointers to the source 
expression that indicate where to make the 
insertion and the kind of insertion, as 
follows : 

• TRUNC function for integer division. 



• BINARY function for integer constants 
used as arguments. 

• The sign between the two parts of a 
complex constant. 

• The letter 'I' after the imaginary part 
of a complex constant. 

• Right parenthesis at the end of an 
expression under the scope of a NOT 
operator or corresponding to the end of 
an expression used as an argument of 
the TRONC or BINARY PL/I function. 



S econd_S can : (Chart 037) 
When the end of an expression has been 
reached, the source expression is scanned 
again. While the scan continues, the 
expression is converted using information 
saved in the Insert Table. When the scan 
pointers equal the pointers in the Insert 
Table, the insertion is made in the trans- 
lated expression. 

Figure 3 describes the flow of ARPRO 
processing. 



Routines_called: ENTTDI, ERMS, GETWRD, 
put?bl7 spproT XTBPRO, LTCOL. 

Exit: Calling routine. 
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Figure 3. ARPRO Processing 



ENTTDI 



Chart 038 



ERMS 



Chart 039 



Purpose: To extract the characteristics of 
a variable from the dictionary (TDI) 
according to the variable name. 



Called by: All statement processing rou- 
tines except BLPRO, CTPRO, EDPRO, PSPRO, 
STPRO. 



Processing: The input to this routine is 
the name of a variable. The dictionary is 
scanned to determine whether it contains 
the variable* If it does, the return label 
is used; if not, the next segue ntial 
instruction is executed. Table entry 
pointer TBLCfl is then updated. 



Purp_ose: To assign an error number to an 
erroneous statements. 



Called_by_: Any routine in Phase 10. 



Processing: The input to this routine is 
any fORTRAN statement in the work area 
WKBF. The number assigned to a particular 
error is placed on SYSUT1 . 



Routine-called: LTCOL, XTBPRO. 
Exit! Calling routine. 



Routine called 



None. 



E xi t : Calling routine. 
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GETTBL 



Chart 040 



LTCOL Chart 42 



To get a table from SYSUT1 ., 

Called by: CMPRO, DAPRO r DMPRO, EQPRO, 
FTPRO, NLPRO r IOPRO r PH30 r PH20, Initiali- 
zation Procedure. 

Processing: The input to this routine is 
the table whose name appears as the argu- 
ment of the statement CALL GETTBL. For 
example, in the statement CALL GETTBL 
(TAB1), TAB1 is the name of the table from 
which the information is fetched. The 
table entry pointer TBLCW contains the 
address of the table entry. The elements 
of the entry are fetched and placed in the 
entry format. In the case of a common 
hlock name, a namelist name, and a label 
format, a search is made by comparing these 
names with the identifiers placed in tables 
TBK, TNL, and TFM respectively. On output, 
the entry of the referenced table is placed 
in a buffer. 

Routines .called : None. 

Exit; Calling routine. 



Purpose: To collect the alphameric data in 
FORTRAN statements. 

Called_by_: ARPRO, COPRO, FTPRO, PSPRO, 
SPDTA. 

P£°-C6§LsJLnc[: The input to this routine con- 
sists of the alphameric literals in the 
work area WKBF. The routine collects the 
literals and places them on SYSUT1 or in 
table TDT. The character count is placed 
on SYSUT1 before the character-string, if 
necessary. 

Eoutines_called: XTBPRO. 

Exit: Caliinq routine. 



PUTTBL 



Chart 043 



GETWRD 



Chart 041 



Purpose: To copy tables on SYSUT1 

Called_by.: ALPRO, ARPRC, ASPRC, CMPRO, 
DAPRO, DMPRO, DOPRO, EQPRO, EXPRO, FNPRO, 
IOPRO, NLPRO, RTPRO, SPDIM, SPPRO, YIPRO in 
Phase 10; DTPRO, EVPRO in Phase 20, Initia- 
lization Procedure, Phase 30. 



The characters collected are placed, with 
their type and length, in an area called 
WORD. 

Purpose: To get a constant, a name or a 
delimiter. 

Called_by_: Any routine in Phase 10, 
Initialization Procedure. 

Processing: The input to this routine is 
the source statement in the work area WKBF. 
This routine divides the source statement 
into groups of characters classified as 
numeric, alphabetic or delimiter depending 
upon the first character collected. 



P£2 £ es s in 2 : The input to t 
the name of the table entry 
ment: CALL PUTTBL (TAB1), 
of a table where the entry 
The entry is placed in a bu 
entries of the same table a 
together using a pointer in 
The table entry pointer TBL 
to see if its valup is poua 
is, a new entry is placed i 
it is not, the existing ent 



his routine is 

In the state- 
TAB1 is the n&me 
will be placed, 
ffer. All the 
re chained 

each entry. 
CW is analyzed 
1 to zpro: if it 
n the table; if 
ry is updated. 



Routines called: 



None, 



ILZi^L Calling routine. 



The characte 
their type a 
WORD. If a 
contains the 
alphabetic g 
tains the ch 
(which is a 
is collected 
that follows 
delimiter or 



rs collected are placed, with 
nd length, in an area called 
delimiter is collected, XTDLM 

delimiter itself. If an 
roup is collected, XTDLM con- 
aracter that follows the group 
delimiter) . If a numeric group 
, XTDLM contains the character 
the group (which is either a 
an alphabetic character). 



Routine called 



None. 



Exit: Return to one of three labels, 
depending on whether a numeric string, an 
alphameric string, or a delimiter was 
collected. 



SLPAR 



Chart 044 



Purpose: To collect the parameter list of 
an entry point 

Called_by: FN PRO. 

££2.2§ssing: The input to this routine is 
the parameter list in the work area WKBF. 
Each parameter is placed on SYSUT1. 

Jto!itine s _2 a !l£d: ERMS, GETWRD, XTBPRO ENT- 
TDI, PUTTBL. 



l2£i£i Calling routine. 
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SPDIM Chart 045 SPSUB Chart 048 



Purpose: To process the list of dimensions 
of a declarative statement. 



Called by: CMPRO, DMPRO, YIPRO. 



P roc essing; The input to this routine is 
the specification statement in the work 
area WKBF. An entry in the dimension table 
(TDM) is made for each dimension collected. 
The pointer to this entry is placed in the 
overflow table (TOV) . 



Routines called : 
GETWRD, PUTTBL. 



ENTTDI, ERMS, GETTBL, 



Exit: Calling routine. 



SPDTA 



Chart 046 



Purpose: To collect DATA literals and 
place them in table TDT. 

Called_b^: DAPRO, YIPRO. 

Processing: The input to this routine con- 
sists of the DATA and TYPE statements in 
WKBF. Literals are collected and rear- 
ranged to be entered in table TDT. 

Routin es called : LTCOL, PUTTBL. 

Exit: Calling routine. 



SPPRO Chart 047 



Purpose : To process subscripts. 

Called_bv.: ALPRO, ARPRO, (first, second 
scan) IOPRO. 

Processing: The input to this routine is 
the FORTRAN statement in work area WKBF, 
The pointers to the commas and to the last 
right parenthesis of the subscript are 
collected. Using the pointers, the sub- 
script parameters are generated in re- 
verse order and placed on SYSUT1 . The 
pointers are then positioned on the last 
riaht parenthesis. 



R outines called : 
XTBPRO. 



ENTTDI, GETWRD, PUTTBL, 



Purpose: To compute the position of an 
element within a block, relative to the 
first element of the block. 



Called_by.: DAPRO, EQPRO. 

Process incj: The input to this routine is 
the FORTRAN statement in the work area 
WKBF. Given DIMENSION A (a, b. . . n*) , 
where A has subscripts (i, j... r*) , the 
position of the element is computed using 
the following formula: 

i+( j-1) a+ (k-1) ab+ . . . (r*-1) ab. . . n* 

The result is passed to the calling 
routine. 

S.outines_called: ERMS, GETTBL, GETWRD. 

Exit! Calling routine. 



I 



XTBPRO 



Chart 049 



Exit: Calling routine. 



Purpose: To place converted executable 
statements on SYSUT1. 

Called_ by_ : LTCOL and all statement pro- 
cessing routines except CMPRD, DAPRO, 
DMPRO, EQPRO, EXPRO, NLPRO, YIPRO. 

Entries: This routine has three entry 
points: XTBPRO, BRNPRO, and LABPPO. At 
entry points XTBPRO and BRNPRO the input is 
a character-string in the area WORD; at 
entry point LABPRO it is the label in the 
area LCCRT. 

.££2, c .£§L§.iS.2 : !f the input cha racter- string 
conflicts with a PL/I built-in function 
name, it is modified (see section "Form of 
LCP Substitution Names" in the language 
conversion manual) . Each time a line in 
the buffer is full, this line is placed on 
SYSUT1, and the next line is initialized. 

At entry point BRNPRO, switch BRSW is set 
off. 

At entry point LABPRO, switch BRSW is set 
on. Leading zeros and all blanks are 
skipped. 

A delimiter is placed on SYSUT1. This 
delimiter is a semicolon for BRNPRO and a 
colon for LABPRO. 

B.2.H tin es_c ailed : None. 

Exit: Calling routine. 
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Chart 009. Overall Logic of Phase 10 
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Chart 010. BLPRO Foutine 
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Chart 011. CMPRO Routine 
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Chart 012. DAPRO Routine 
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Chart 013. DMPRO Routine 
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Chart 014, EDPRO Routine 
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**C1******* 

"initialize 
end switch 

(LCEND) 
* * 

*********** 



****D1********* 

» RETURN * 

* * 

*************** 
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Chart 015. EQPRO Routine 



EQPBO 




****A1 ********* 


* 




* 


* 


ENTER 


* 


* 




* 




*************** 


**** • 




* 


* ' 




* 


B1 *->' 




* 


* ' 




**** V 




EQ01 


. *. 
B1 *. 




GETHED 0K1A1 








X — * 


GET NEXT WORD.* 




*. 


* 




*. .* 




V 


*. .* 




**** 


* DEL 




* 






H2 * 


■ 




* 


■ 




**** 


V 




E002 


.*. 

C1 *. 

.* * 




YES 


.* IS IT A 


*. 


X — * 


COMMA 


. * 




*. 


* 




*. . * 




V 


*. .* 




**** 


* NO 




* 






B1 * 


• 




* 






**** 


1 





**** 
► X 

k H3 * 

K 4 

**** 



E1 *. 
.♦IS IT A*, 
k LEFT *. NO 
PARENTHESIS .* > 



**** • 

* * ' 

* F1 *->• 

* * ■ 
**** V 

EQ05 .*. 

F1 *. 

GETHRD 011A1 

DEL .* *. NOM 

X — *.GET NEXT WORD.* 

' * . .* 

' *. .* 



EO03 V 

*****G1 ********** 
♦ENTTDI 038A2* 



***************** 



* ENTRY IN * 

* DICTIONARY * 

* (TDI) * 
***************** 



**** 
* * 

k C2 * 
k * 

**** 



C2 *. 
.♦IS IT A*. 
k LEFT *. NO 
PARENTHESIS .* X 



***************** 



EQ08 V 

*****E2 ********** 

* PUTTBL 0U3A1* 

* ENTRY IN * 

* EQUIVALENCE * 

* TABLE (TEQ) * 
***************** 



**** 
k * 

K F2 * 

k 4 

**** 



EQ06 



**** 
k * 

X F1 * 

* * 

**** 



G2 *. 
-*IS IT A*. 
k RIGHT * 
PARENTHESIS 



**** 

* i 

* B1 4 

* * 
**** 



EQ20 V 

*****H2 ********** 
♦ERMS 039A1* 



************♦♦♦♦* 



**** 
k * 

> H3 *— X 

K * ■ 

**** ' 
EQ07 • 

V 
****H 3* ******** 

— >* RETURN * 

* * 

*************** 



**** 
k * 

k C2 * 
k * 

**** 
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Chart 016. EXPRO Routine 



EXPEO 

****A 2** ♦*♦**** 

* ENTER 4 

* * 
*************** 



b2 

GETHRD 



-*.GET NEXT WORD,*<- 



EX02 V 

*****C2***« 
*ENTTDI 



oSSIS* 



EX2 V 

*****E1 ********** 
*ERHS 039A1* 



* ERROR MESSAGE * 



***************** 



***************** 



EX03 V 

*****D2 ********** 



* UPDATE CLASS 

* FLAG (LCEHT) 



***************** 



* ENTRY IN * 

* DICTIONARY * 

* (TDI) * 

***************** 



F2 *. 
x IS *. 

THERE *. YES' 

ANOTHER .* X 

NAME .* 



****G 2 ********* 

» RETURN « 

■ * 

*************** 
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Chart 017. FNPRO Routine 



****A1 ********* 
k * 

k E N TE R * 

k * 

*************** 



SBPEO V 

**B1******* 

* SET * 

* SUBROUTINE 

♦ SWITCH (LCPGC) 

* ON 

* * 
*********** 



****A2 ********* 
t * 

k ENTER * 

i * 

*************** 



FNPRO V 

**B2******* 

* SE I * 

* FUNCTION 

♦ SWITCH (LCPGC) 

* ON 

* * 
*********** 



♦ ♦** A 3* ***♦♦♦♦* 
k * 

k ENTER * 

k 1 

*************** 



**B3******* 



* SET ENTRY . 
* SWITCH (ETSW) 



*********** 



>t< 

V 
FN01 .*. 

C2 *. 
**** GETWRD 0U1A1 

► * NOM .* *. 

k Jt *< *.GET NEXT WORD.* 



**** 



.* 



FN03 V 

*****E1* ********* 
♦ XTBPRO OWAU 



***************** 



***************** 



**** 
* 4 

k C3 4 



* ID 




**** ' 

* * ■ 

* D3 *->' 

* * * 


V 
. *. 




**** ' 
FN05 V 


D2 *. 

ENTRY 

SWITCH 

(ETSW) ON 


*. 

.* 
* 


*****D3********** 

* SLPAR 014A2* 

* PROCESS * 

* PARAMETERS * 



F2 *. 
.* * 

ASTERISK 



G2 *. 
GETWRD 041A1 

. * *. DEL 

♦ .GET NEXT WORD.* X 



*♦♦* 
k * 

k J4 * 
k * 

*♦** 



♦♦H2*+^**+^ 



♦♦♦**♦♦♦*** 



***************** 



£3 *. 
.* * 

FUNCTION 



***************** 



ANY 

TYPE OR 
LENGTH 



* GENERATE TYPE * 

* * 
******♦***♦♦♦**** 



?N10 V 

*****J 3 ********** 
♦XTBPRO 0«9A1* 



*♦♦* 
k * 

k J<t * 

k * 

♦ *♦♦ 



FN20 V 

♦ ♦♦♦♦^♦♦♦♦♦♦*** + 
♦ERMS 039A1* 



***************** 



♦ ERROR MESSAGE ♦ 



♦♦♦**♦♦♦♦♦♦****** 



* CI ♦< *. SUBROUTINE 

* ♦ *. 

♦ ♦** ♦. .♦ 



****K3+ ♦♦*♦♦♦♦♦ 

k * 

k RETURN * 

k 4 

*************** 



X->* D3 * 

♦ ♦ 

♦**♦ 



Phase 10 41 



Chart 018. NLPRO Routine 



NLPRO 

****A1 ********* 

* * 

* ENTER * 

* . « * 
*************** 



X.--*. GET NEXT WORD.*- 



**** 
k 

k H2 
► * 

***** 

NL07 



***** • 

* * ' 

* C1 *->« 

* ' 
**** V 



o<mi 



C1 
GETHRD 

DEL .* -*. 

X-- + .GET NEXT WOHD. 
• *. (NAME) .* 



* H2 * 
k * 

**•* 

NL02 



IS 

THERE 1 

SLASH 



NL03 V 

*****E1* ********* 
♦GETTBL OaOAl* 



*GET ENTRY FROM * 

* TABLE (TNL1 * 

* * 
***************** 


**** ■ 

* * ■ 

* F1 *->• 

* * • 
**** V 

NL06 .*. 

GETWRD 0II1A1 




X~* 

V 

**** 


GET JNEXT HORD. 

*. (VAF) .* 

*. .* 

*. .* 

* ID. 




C3 * 
* 
****. 






NLOU V 

*****G1 ********** 
*ENTTDI 038A2* 


* 
* 


SEARCH IN 
DICTIONARY 


* 
* 



***************** 



NL05 V 

*****H1 ********** 



*SET CLASS FLAG * 



***************** 



k F1 4 
k « 

**** 



**** 
k * 

k C3 *— X 
k * * 

**** V 

9 .*. 

C3 *. 
.* IS * 
.* THERE 
k. ANOTHER 
*. VARIABLE 



*****D 3* ********* 



***************** 



* ENTRY IN * 
♦NAMELIST TABLE * 

* (TNL) * 
***************** 



V 
.*. 

F3 *. 
* * . **** 

IS IT A «. YES * * 

SLASH .* >* C1 * 



NO .* IS *. 

- — *. THERE AN 

*. ENDHARK .* 



**** 

* * 

* H2 *-> 

* * 
**** 

NL20 V 

*****H2 ********** 
*ERMS 039A1* 
* — „, 

* * 

* ERROR MESSAGE * 

* * 
***************** 



*****J1 ********** 
♦PUTTBL 043A1* 

* ENTRY IN * 

* DICTIONARY * 

* (TDI) * 
***************** 



****J3 ********* 

k RETDRN * 

» • 

*************** 



* ENTRY IN * 

* VARIABLE LIST • 

* TABLE (TNV) * 
***************** 
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Chart 019. YIPRO Routine 



****A1********* 
E' ENTER * 

ft************** 



y RPRO 

****A2********* 

* ENTER * 

* * 
*************** 



YDPRO 

****A 3* ******** 

* * 

* ENTER * 

* * 
*************** 



YCPRO 

****&!»********* 

* ENTER < 

* * 
*************** 



YLPRO 

****A5********* 

* * 

* ENT ER- * 

* * 
*************** 



*****B 2 ********** 



***************** 



YT0 1 . * . 

C2 ♦ . 

GETWRD 0U1A1 

ID .* *. NUM 

X *. GET NEXT WORD.* 



*. 



*.GET NEXT WORD. *- 



*. 

**** 
k * 

» F2 *■ 
l> * 

♦ *** 



♦ .GET NEXT WORD. *- 



* SEARCH IN * 

* DICTIONARY * 

* (T DI) * 

***************** 



YT07 



PLACE NAME II 
DICT. (TDI) 



***************** 



* J4 * 

* * 

**** 



PLACE IN DICT 
(TDAI 



***************** 



***************** 



H2 



*. 



**** .* *. 

* ♦ NO .* 

* C<» *< *. DIMENSION 

* * *. VARIABLE . 
*♦** *. .* 

*. .* 
* YES 



***************** 



YT20 V 

*****H 3 ********** 
*iERMS 039 A1* 



* ERROR MESSAGE * 



***************** 



****J3********* 

► RETURN *<- 

¥ * 

*************** 



m *. 

GETWRD 0U1A1 **** 

NOM .* *. ID * * 

*. GET NEXT WORD.* >* F2 * 



**** ■ 


* ' 
J4 *->• 


* ' 


**** V 


.*. 

JH *. 
.* IS 
.* THERE 
ANOTHER 
♦.VARIABLE 



**** 

* 4 

* F2 4 

* 4 
**** 
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Chart 020. ALPRO Routine 



ALPRO 

****A1 ********* 

* ENTER * 

* * 
*************** 



* A3 *— X 

* • • 

**** • 
AT01 V 

*****A3 ********** 

* SET FUNCTION * 
♦TYPE INITIALIZE* 
♦ARGUMENT TABLE * 

* POINTER * 

* * 
***************** 



NO .* IS 

X *. THERE A 

*. LABEL 



♦GENERATE LABEL * 



***************** 



* GENERATE * 

♦ FUNCTION NAME * 
♦AND 'PROCEDURE'* 
***************** 



* UPDATE DICT 
♦ENTRY FOR THIS 

♦ NAME 
♦******♦*****♦♦♦* 



AL12 V 

♦****D 2* ********* 
*ERMS 039A1* 



*.GET NEXT HORD.*- 



* ERROR MESSAGE * 

* * 
***************** 





**** ' 








* _* ' 

* D3 *->" 






X 


* * • 
**** V 
ATOU .*. 
D3 
GETHRD 

DEL .* 

X *.GET NEXT 


*0l»1A1 
WORD. 


NUM 
♦ 



AL02 V 

*****E1 ********** 
♦ENTTDI 03 8A2* 



***************** 



.♦DELIMITER A*. 

LEFT- 

*. PARENS .* 



NO 

. *. 

F2 ♦. 

.♦IS *. 

.♦ DELIMITER ♦. 

>♦. AN EQUAL .< 

A ♦. SIGN .♦ 



* NO. OF 

DIMENSIONS 
*. -0 



**** 

* * 

* A3 4 

* 4 
**** 



♦ GENERATE « NAME' ♦ 

♦ ♦ 
***************** 



***************** 



♦ .GET NEXT HORD.*- 



♦ GENERATE 'NAME'* 



**♦****♦♦♦******* 



♦ PROCESS RIGHT * 

♦ PART OF ♦ 

♦ EXPRESSION ♦ 
***************** 



AT05 V 

*****£ 3* ********* 

* ENTTDI 038A2* 

* SEARCH THIS * 

* NAME IN * 

* DICTIONARY * 

***************** 



*****F3********** 
♦SAVE DICTIONARY* 

* ENTRY POINTER ♦ 

♦ IN ARGUMENT ♦ 

♦ TABLE * 

* * 
***************** 



*****G3 ********** 
♦XTBPRO 049A1* 



***************** 



****J2 ********* 
► RETURN * 

* 4 

*************** 



* c« *--x 



***************** 



***************** 



***************** 



* PROCESS RIGHT * 

* PART OF * 

* EXPRESSION * 
***************** 



♦GENERATE 'END' 



***************** 



AT12 

*****H4********** 
*ERMS 039A1* 







J3 *. 






NO 
X — * 


* 
* 


* * 
EQUAL 
SIGN 


*. 

* 


YES 
* X 


V 




*. .* 
* . .* 




V 


***• 




* 




**** 


* 
D3 * 








• 

* c« 


* 








* 


**** 








**** 



♦ ERROR MESSAGE ♦ 

♦ ♦ 
♦♦♦♦♦************ 



****Jt ********* 

* RETURN * 

* 4 
*************** 
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Chart 021. AS PRO Routine 



ASPRO 

****A1 ********* 

* ENTER * 

* * 
*************** 



♦ GENERATE LABEL * 



***************** 



3ETWRD 041A1 
, „, 1- 

. GET NEXT WORD. *< — X 



, GET NEXT WORD. 
*. ('TO') .* 



-*. GET NEXT WORD.* 



AS04 V 

*****F2**** ****** 
♦ENTTDI 038A2* 
* * 

* SEARCH IN * 

* DICTIONARY * 

* (TDI) * 
****** *********** 



AS06 V 

*****G2* ********* 

* PUTTBL 013A1* 

♦PLACE VARIABLE * 

* NAME IN * 

* DICTIONARY * 
***************** 



* GENERATE * 

* VARIABLE NAME * 

* AND STMNT NO * 
***************** 



AS2 V 

*****J1 ********** 
♦ERMS 039A1* 



* ERROR MESSAGE * 

* * 
***************** 



♦GENERATE LABEL * 
* * 

***************** 



****K1********* 
k « 

Y RETURN * 

Y 1 
*************** 



♦WARNING MESSAGE* 



***************** 
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Chart 022. CAPRO Routine 



CAPRO 

****A 1********* 

* ENTER 4 

* 4 
*************** 



B1 *. *****B*********** 

.* *. *LABPRO 049A5* 

.* IS *. YES * * 

*. THERE A .* >* * 

*. LABEL .* *GENERATE LABEL * 

*. .* * * 

*. .* ***************** 

* NO « 

i i 

i i 

i < X 

V 
CA01 .*. 

C1 *. 

GETWRD 0H1A1 

DEL .* *. 

X--*. GET NEXT WORD.* 
' *. . * 

1 *. . * 



V 


* 


. * 


**** 




* ID 


* 
J3 * 




t 


• 






**** 
CA03 


D1 


V 

*. 
*. 


YES . 
X *. 


* MOST IT 
BE MODIFIED 



IS IT 

DDSP OR 

PDUMP 



G1 *. 

.*' OVERFL, "*. YES 

*.SLITE,SLITET,.* 

*. DVCHK .* 
*. .* 

*. .* 
* NO 



CA09 V 

*****G2 ********** 
♦ERMS 039A1* 



• WARNING MESSAGE* 

* * 

***************** 



CA0I» V 

*****H1 ********** 
♦ XTBPRO 0"»9A1* 



***************** 



H2 *. 
.* IS *. 
THERE A 
LEFT PA- 
. RENTHESIS. 
*. .* 
*. .* 



IS 
THERE AN 
.END MARK 



CA08 V 

*****G 3* ********* 
•XTBPRO 049A1* 



•GENERATE 'STOP'* 



***************** 



.* IS 

->*. THERE AN 
*. END MARK 



**** 

* * 

* J3 *-> 

* • 
**** 

CA20 V 

*****J3********** 
*ERMS 039A1* 



***************** 



* ERROR MESSAGE * 

* * 
***************** 



***************** 



CA05 • 

****K3* ******** 

— >* RETURN * 

*********.****** 



US 



Chart 023. COPRO Routine 



COPHO 

****»1 ********* 

* EHTER i 

* A 
*************** 



*****B1 ********** 
♦ LTCOL 042&1* 



**£************** 



****C1 ********* 
)> * 

K RETURN 4 

► * 

*************** 
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Chart 024. CTPRO Routine 



CTPBO 

****A2*****»*** 

* ENTER 4 

* 4 



IS 

THERE A 

LABEL 



MO 



GENERATE 
•EXT LAB N' 



***************** 



CT20 

*****E1 ********** 
♦ERHS 039A1* 



* ERROR MESSAGE * 

* * 
***************** 



***************** 



*6aui 



GET NEXT 
, ELEMENT 



****F2********* 

K RETURN * 

> * 

*************** 
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Chart 025. DOPEO Routine 



DOPEO 

* * 

* ENTER X 

* * 
*************** 



* IS *. 


YES 


ARGUMENT IN 


+---X 


♦.I/O LIST .* 


■ 


*. .* 




*. .* 


V 


* NO 


**** 




* 


1 


* F3 I 




* 


■ 


**** 



*****B 2* ********* 
♦LABPRO 049A5* 



♦GENERATE LABEL * 



***************** 



■>< 



**** 

* * 

* D1 < 
k < 

**** 



. ARGUMENT IN 
*.I/0 LIST . * 



IS *. NO 

DELIMITER .* 

. ENDBARK .* 



D016 V 

**#**F1* ********* 
♦XTBPRO 049A1* 



DC20 V 

*****F2********** 
♦ERMS 039A1* 



DO01 .*. 

C3 *. 
GETWRD 041A1 

DEL .* *. ID 

*.GET NEXT WORD.* X 



> F2 4 
* 4 

**** 



D002 V 

*****D 3* ********* 
♦PUTTBL 0U3A1* 

♦PLACE LABEL IN * 

♦ DO TABLE (TPD) ♦ 

♦ * 
***************** 

***♦ 

♦ * 

♦ E3 * 

♦ * 
**** V 

. *. 

GETWRD 041A 1 

NUM .* ♦. DEL 

*.GET NEXT WORD.* X 



**♦♦ 

♦ * 

♦ F3 ♦ 

♦ * 
***♦ 

DO 03 V 

*:****F3+ ********* 

*XTBPRO 049A1* 



**♦* 

* 4 

* F2 4 

* 4 
♦ ♦♦* 



***************** 



♦ ♦♦♦Q 1 ********* 

» RETURN ♦<- 

* ♦ 

*♦**♦♦♦♦**♦♦♦♦* 



* ERROR MESSAGE * 

* * 
♦*♦♦♦♦*********** 



**** 

* * 

* F2 * 

* 4 
♦ ♦♦♦ 



***************** 

*♦♦* 

* * 

* G3 ♦-> 

* ♦ 
**** 



*♦*♦ 
* * 

¥ E3 * 
x * 

**♦* 

D004 



IS 
PARENS 
..COUNT =2 



* SET ♦ 

* VARIABLE 

* SWITCH (DOSW) 

* ON 

♦ * 
*********** 



♦ ♦♦* 

♦ ♦ 

♦ D1 ♦<- 

♦ * 

♦ ♦♦♦ 



K3 ♦. 
.♦ *. ♦♦*♦ 

IS ♦. YES * * 

DELIMITER .* >* G3 * 

, COMMA .* * * 

♦ . . * **** 
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Chart 026. FTPRO Routine 



****A1 ********* 

* ENTEB * 

* * 
*************** 

**** 

* * 

* B1 * — X 



**A2******* 

* * 

-> INITIALIZATION * 
* * 

* * 
*********** 

**** ' 

* * • 

* B2 *->« 
+ * " 

**** V 



B2 *. 

GETWRD 041A1 

DEL .* *. ID 

*.GET NEXT WORD.* 



***************** 



***************** 



V 
.* . 

B3 *. 



**** 

* * 

* H5 * 

* * 
**** 



**** 

* * 

* E3 * 

* * 
**** 



YES .* % 

X--*. FOLLOWED BY 
■ *. H .< 



**** 

* * 

* C5 * 

* * 
**** 



D1 *. 

* 

SLASH 



*****E1 ********** 

* INCREASE SLASH * 

* SWITCH (FTSL) *- 

* BY 1 * 

* * 
***************** 



* A5 * 

* * 
**** 



**** 

* * 

* B2 * 

* * 
**** 



*****F2 ********** 
* * 

X — * SAVE P FACTOR * 
■ * * 

' * * 

V ***************** 



**** 


* NO 


**** 


* * 




* * 


* C5 * 




* B2 * 


* * 




* * 


**** 


1 


**** 



*****C3********** 

* XTBPRO 049A1* 

* GENERATE * 

* 'COLOHN(N) ■ * 

* * 
***************** 

• **** 

* * * 
X->* BI * 

* * 

***• 



***************** 
i 

• **** 

■ * * 

X->* BI * 

* * 

**** 
FT360 

*****E3 ********** 

* DECREASE * 

* PARENTHESIS * 
X->* LEVEL COUNTER * 
' * (FTLP) BY 1 * 
' * * 
• ***************** 

**** 
t * 

k E3 * 
* * 

**** 



F3 *. 
GETWRD 041A1 
ID .* *. 

X *.GET NEXT WORD.* 



**** 

* * 

* B2 * 

* * 
**** 



X— *GENERATE RIGHT *<- 
• * PARENS AND * 
> * COMHA * 
V ***************** 
**** 



.*PARENTHESIS*. 

X X *. LEVEL COUNTER.* 

*. (FTLP) = .* 
*. 1 . * 



*****J1 ********** 



***************** 



**K1******* 

* SET * 

* NESATIVE P * 
X-->* FACTOR SWITCH * 

* (FTLAB) * 

* * 
*********** 



***************** 



X->* E3 * 



— X *GENERATE RIGHT * 

* PARENS AND * 

* COBHA * 

***************** 



♦GENERATE EXTRA *- 

* RIGHT * 

* PARENTHESIS * 
***************** 



.* SKIP *. NO 

SWITCH .* 

*. (FTAA) ON.* 



♦GENERATE SKIPS * 



***************** 



GENERATE 
'COLUMN(I) 



***************** 



•****D4 ********** 



* PREPARE TO 
-* GENERATE X (N ) 



***************** 



*****F 4********** 

* PREPARE A(N) * 
-* FOR LITERAL *< 

* * 

* * 
***************** 



**G4******* 



* SET SKIP * 
-* SWITCH (FTAA) *<- 



* GENERATE * 

* NUMERIC CODE * 
*AND LEFT PARENS* 
***************** 

1 **** 

* * * 

X->* B2 * 
* * 

**** 



***************** 



FT700 

*****C5 ********** 
♦LTCOL 042A1* 



• * SCAN LITERAL 
■ * 

' ***************** 
**** 

* * 

* C5 * 

* * 
**** 



*********** 



*****H4********** 

* INCREASE PAR * 

* LEVEL COUNTER *< 

* ("TLP) BY 1 * A 

* * 
***************** 



***************** 



***************** 



NO .* SKIP *. 

— *. SWITCH 

♦ .(FTAA) ON.* 



*****G5 ********** 

* CONVERSION OF * 

* CARRIAGE * 
-* CONTROL * 

* CHARACTER * 



**************** 


**** 




* ♦ 




* H5 *- 


-X 


* * 




**** 


V 


T400 


. *. 



NO .*PARENTHESIS*. 
— ♦.LEVEL COUNTER.* 
*. (FTLP) = 1 .* 



*****J5* ********* 
♦XTBPRO 049A1* 



GENERATE 
•32767C 



***************** 



****K5********* 

->* RETURN * 

* * 

4************** 
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Chart 027. GTPRO Routine 



GTPHO 

****A1********* 

* ENTER * 

* * 
*************** 



.* IS 

->*. THERE i 

*. LABEL 



♦GENERATE LABEL * 



***************** 



* .GET NEXT WORD. 



NUM 
ID - " 



^*SAVE CHARACTER 
->* STRING 



***************** 



GT30 V 

*****D2 ********** 



***************** 



* GENERATE 'IF' * 

* * 
***************** 



F2 *. 
GETWRD 041A1 

* VNUM .* *. 

G4 *< *.GET NEXT WORD.* 



***************** 



* PUT NAME IN * 

* DICTIONARY * 

* (TDI) * 
***************** 



***************** 



* GENER. 'AND GT *- 
*. ■.•JTHB.1 GO TO * 
*BBANCHN(« INDEX'* 

***************** 



***************** 



*****D3 ********** 

* * 

* RESTORE * 

* CHARACTER * 

* STRING * 

* * 
***************** 



GA01 V 

*****F3 ********** 
♦ENTTDI 038A2* 



***************** 



* PUT NAME IN * 

* DICTIONARY * 

* (TDI) * 
***************** 



♦WARNING MESSAGE* 
* * 

***************** 

V 
**** 

* G5 * 

* * 
**** 



->* PUT 'INITIAL' *- 
♦VALUES IN TABLE* 
* TDT * 

***************** 



*****Et ********** 
*BRNPRO 049A3* 



♦ GENERATE LABEL * 



***************** 



**** 
* * 

K St * 
* 

**** 



*****3l ********** 
*ERMS 039A1* 



* ERROR MESSAGE * 

* * 
***************** 



**** 

♦ ♦ 

♦ G5 *->' 

* * 
**** 

GTOH 

V 
****G5* ******** 

>* RETURN * 

* * 
*************** 
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Chart 028. IFPRO Routine 



IFPRO 

♦♦♦♦A !♦♦♦♦***♦* 

* 4 

* ENTER * 

* 4 
*************** 



**F1*****+* 

* SET * 
♦SUBSCRIPT OF * 

* COMPARISON ♦<- 
* TABLE TO 2 * 

* * 
*********** 



*+A2******* 

* * 

->*INITIALIZATION ♦ 
* * 

* * 
*********** 



HO .* IS 

X *. THERE A 

*. LABEL 



*****C2 ********** 
♦ XTBPRO 0H9A1* 



♦GENERATE LABEL * 



***************** 



IF32 V 

*****D2 ********** 
*XTBPRO 049A1* 



* GENERATE «IF« * 



***************** 



IF33 V 

*****E2 ********** 
*ARPRO . 034A2* 

* PROCESS * 

* ARITHMETIC * 

* EXPRESSION * 
***************** 



*****F2 ********** 

* * 

-♦COLLECT LABELS * 

* * 

* * 
***************** 



**G2******* 

♦ SET * 
♦SUBSCRIPT OF ♦ 

->♦ COMPARISON 4 
♦ TABLE TO 1 ♦ 

♦ ♦ 
♦*****♦♦♦♦* 



.* ♦. **** 

.* IS *. YES * 4 

. LABEL1=LABEL3.* >* A3 4 



IS 
LABEL2 - 
. LABELS 



**K1******* 

* SET t 

♦ SUBSCRIPT OP 
K COMPARISON 

* TABLE TO 3 

* 4 
*********** 



**J2******* 



*♦♦♦♦♦♦**** 



**** 

* * 
« A3 * 

* * 
***• 



IF52 V 

***** A 3* ********* 



• RESET ELSE 

♦ SWITCH (IFJ) 



***************** 



.* IS *. 

SWITCH 

♦ . (IFSW) ON.* 



♦♦♦♦*Dt********** 

* COHPUTE THE * 

* COMPLEMENTARY * 

* SUBSCRIPT OF * 

* COMPARISON * 

* TABLE * 
***************** 



*****C 5 ********** 

* PREPARE * 

* SUBSCRIPT AND * 
>* LABEL FOR * 

* GENERATION * 

* * 
***************** 



, * IS NEXT * 
. LABEL=LABEL2 
♦ .OR LABEL3. 4 



**FU******* 



♦♦♦******** 



*****F5* ********* 

* PREPARE * 
X — >* SUBSCRIPT FOR * 

* NEXT "IF' * 

* * 
****** ***r******** 



IF53 V 

*****3tl********** 
♦XTBPRO 049A1* 

♦GENERATE 'THEN * 

* 30 TO' AND * 

* LABEL * 
***************** 



IS *. 
SWITCH 
(IFSWI ON.* 



♦ GENERATE 'ELSE ♦<- 

♦ GO TO* AND ♦ 

♦ LABEL * 
***************** 



. * IS ELSE 
SWITCH 
*. (IFJ) ON 



****K 4* ******** 
K RETURN 4 

¥ * 

*************** 



************** 



**H5******* 



K RESET 'IF' . 
SWITCH (IFSW) 



*********** 



* PROCESS *- 

* ARITHMETIC * 

* EXPRESSION * 
***************** 
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Chart 029. IOPRO Routine, Part 1 of 2 



**** 

* * 

* A3 * 



IOPRO 

****A2 ********* 

* * 

* ENTER * 

* + 
*************** 



*****A3 ********** 



***************** 



B2 
.*" 'ENDFILE 



**** 
YES * A 

BACK- .* >* J3 * 

SPACE' .* * * 

. * **** 



* NO 



C2 *. 
*• PUNCH'*. **** 

•PRINT' *. NO * 4 

1 READ' OR .* >* J3 4 

•WRITE" .* * * 

X. .* **** 



* YES 



**A4******* 

* > 

* SET 

>* 'NAMELIST' 

* SWITCH 

* 1 
*********** 

**** 

* * 

* B4 *->' 

* * 
**** 

39 

B4 



***** 
*030* 
* A1* 



*****D'1********** D2 *. 

♦XTBPRO 049A1* .* *. 

* * y ES .,. i S IT A „. 

* *< *. LABEL .* 

♦GENERATE LABEL * *. .* 

* * *. . * 
***************** *. . * 

] * NO 

i i 

x >■ 

V 
1044 . *. 

*****E1********** E2 *. 

*XTBPRO 049A1* .* *. 

* * yES . * IS IT A *. 

* GENERATE *< *. 'REWIND* .* 

* 'CLOSE' * *. STATEHENT.* 

* STATEHENT * *. .* 
***************** *. . * 

■ * NO 

' **** ' 

1 * * ' 

X->* K4 * ■ 

* * ' 

**** V 

1013 . *. 

**F1******* F2 *. 
* ' * GETWRD 041A1 
* SET I/O * NUM .* *. ID 

* SWITCH (10SV.) *< *. GET NEXT WORD.* 



*********** 



***************** 
• **** 

X->* BD * 

* * 

**** 



*****J1********** 



***************** 



H2 *. 
GETWRD 041A1 

ID .* *. DEL 

X *.GET NEXT WORD.* X 



* NUM 

t 



* GENERATE *<- 

* 'FTNF01) ' * 

* * 
***************** 

■ 

' **** 

' * * 

X->* H4 * 

* * 

**** 

*****G 3* ********* 
*XTBPRO 049A1* 



GENERATE 
1 SYSPRINT) ' 



***************** 



GENERATE 'PUT 
FILEC 



***************** 



1014 
NO .** 



*****FROH 
*029*030A1,B2. 
* J3* C1,C2,G1 
* * H1,J1 
i 


X->*. 'NAMELIST 
• *. SWITCH 
' *. 
' *. .* 
, **** * NO 

* * ' 

* H4 * ' 




* * ' 


■ 


**** • 



->* GENERATE 
* FILEC 



***************** 



->* GENERATE 
* ■ SYSIN) ' 



***************** 



* PROCESS * 
•* 'NAMELIST' * 

* OPTION * 

* * 
***************** 



102 V 

*****J3********** 
*ERMS 039A1* 



« ERROR MESSAGE * 



GETWRD 041A1 
->*Iget NEXT WORD."*- 



* NUM 
-X 



*****J4********** 

* PROCESS LIST * 

* AND GENERATE •-— X 

* RIGHT PARENS * 

* * 
***************** 

**** 

* K<t * — X 

* * i •» 

**** • 
1099 ' 

V 
****K4 ********* 

X— >* RETURN *< 

* * 
*************** 



1080 V 

*****K5 ********** 
*XTBPRO 049A1* 



■* GENERATE PL/I * 
* STMT FOR * 

♦END/ERR OPTIONS* 
***************** 



K A3 * 
* * 

**** 



Phase 10 53 



Chart 030. IOPRO Routine, Part 2 of 2 





***** 
*030* 




* A1* 




* * 




* 




'FROM 




1 02 9C« 




V 


1050 


.-*. 




A1 *. 




3ETWRD 0KU1 


HUH 




X — * 


GET NEXT MORI).* 




*. . * 




*. .* 


V 


*. .* 


***** 


* ID 


*02 9* 


■ 


* J3* 


• 



IS IT 
AN END 
OPTION 



. * IS IT 
->*. AN ERR 

*. OPTION 



— X 

V 
***** 
♦029* 
* J3* 

* * 



YES 


* 


END 


X — *. 


* 


SWITCH ON 
*. . * 


V 




*. .* 






* NO 


*029* 






* J 3* 






* * 






* 






1052 




V 




**D1****** 




* 




* 


SET END 


* 




SWITCH 


* 


(10 END) 



*********** 



***** 

♦ 029* 

* J3* 



**D2******* 

SET ERR 

SWITCH 

(IOERR) 

* 1 

*********** 



***************** 



1053 V 

*****F1 ********** 
♦XTBPRO 0«9A1* 



***************** 



***************** 



***** 

♦ 02 9* 

* J3* 



G1 *. 

.* IS *. 

DELIMITER *. 

AN EQUAL 

. SIGN .* 

*. . * 

*. .* 





HI 


*. 




GETWRD 


0U1A1 


NUH 








X — * 


GET NEXT WORD. 


* 




*. 


. * 






*. 


. * 




V 


* 


. * 




***** 




* DEL 




♦ 02 9* 








* J 3* 








* * 








* 








1051 




V 




*****J1********** 


* 


XTBPRO 


0K9A1 


* 










* 


GENERATE 


* 


* 


' EXTLAB N' 


* 



***************** 



***** 

♦ 029* 

* J3* 
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Chart 031. PSPRO Routine 



PSPRO 

****A-2 ********* 

* * 

* ENTER * 

* * 
*************** 



***************** 



PS01 V 

*****C2********** 
*XTBPRO 049A1* 

* GENERATE * 

* 'DISPLAY (' * 

* * 
***************** 



***************** 



* GENERATE' N) • * 

* * 
***************** 



GETWRD 041A1 
NOM .* *. ID 

*.GET NEXT WORD.* 



IS IT A 
QUOTE 



♦ COLLECT LITERAL* 



***************** 



GENERATE 
•0000) • 



***************** 



* ERROR MESSAGE * 

* * 
***************** 



PS06 V 

*****H2* ********* 
*XTBPRO 049A1* 

* * 

* GENERATE * 

* 'REPLY' AND * 

* 'NEXTSTA' * 
***************** 



****J2********* 

* RETURN * 

< * 

*************** 
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Chart 032. RTPEO Routine 



**** A 1 ********* 

* * 

* ENTER 4 

* * 
*************** 



IS 

THERE A 

LABEL 



NO 



BTPRO V 

*****B2 ********** 
♦LABPRO 049A5* 



♦ GENERATE LABEL * 



***************** 



*****C4**** 
♦XTBPRO 



S35a*« 



D2 *. 

.* « 

FUNCTION 



RT03 .*. 

E2 *. 

GETWRD 041A1 

NUM .* *. ID 

--♦.GET NEXT WORD.* 



V 

**** 

* * 

* D3 * 

* * 
**** 



>* GENERATE *- 

♦ 'RETURN" AND * 

* NAME RESULT * 
******♦♦***♦♦♦♦** 



RT05 V 

*****F3 ****♦*♦♦** 
*ENTTDI 038A2* 



**♦♦♦♦**♦****♦♦♦* 



RT09 V 

♦♦***G3 ********** 
♦PUTTBL 043A1* 

* PUT NAME IN * 

* DICTIONARY * 

* (TDI) * 

***************** 



RT07 V 

*****H 3*** ******* 
♦ XTBPRO 0U9A1* 



***************** 



***************** 



****J3********* 

» RETURN ♦ 

♦ i 

*************** 
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Chart 033. STPKO Routine 



STPRO 

****A1*** ****** 

* * 

* ENTER * 

* 4 
*************** 



ST01 V 

*****B 2 ********** 
♦XTBPRO 0M9A1* 

* * 

* GENERATE * 
♦DISPLAY (• STOP* 

* * 
***************** 



*****A3********** 
*LABPR0 049A5* 

* * 

->* * 

♦GENERATE LABEL * 
* * 

***************** 



C2 *. 
GETWRD 041A1 

DEL .* *. ID. 

X *.GET NEXT WORD.* 



*****D2 ********** 

* PLACE WORD * 

* LENGTH IN * 

* XTABLE * 

* * 
***************** 



*****E2 ********** 
♦XTBPRO 0U9A1* 



* GENERATE WORD * 



***************** 



* OF STATEMENT 



***************** 



♦GENERATE 'STOP'* 

* AND END OF * 

* STATEMENT * 
***************** 



.* IS 

. THERE AN 
*.END MARK 



****J 2 ********* 

i. RETURN t 

i 1 

♦*♦*♦****♦***** 



* ERROR MESSAGE * 



***************** 
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Chart 034. ARPRO Routine, Part 1 of H 



***** 

*03U* 
* At* 



'FROM 

1 035G1,G5 



****A1 ********* 

* * 
k ENTER * 

* * 
*************** 



**A2****** + 



->*INITIALIZATION *- 

* FIRST * 

* SCANNING * 

*********** 



.* IS IT A *. 
->*. CALL 

♦.STATEMENT.* 



X->* H2 * 

* * 

**** 



* UPDATE PUSH * 
>* TABLE AND * 

* POINTERS * 

* * 
***************** 



**** ' 

*03U* ■ 

* BU *->'FROM 

* * "035K3 
**** ■ 

AH02 V 

*****B4********** 



*****FROH 
*034*037C3 
* C2* 



AR06 V 

*****C2********** 
♦ENTTDI 038A2* 

* FETCH *< 

* IDENTIFIER IN * 

* DICTIONARY * 
***************** 



**«**FROH 
*03U*035E3 
* C3* 



-♦.GET NEXT KORD.*- 



***** 
*036* 
* A1* 



***************** 



* SET TYPE * 
>* CURRENT TO * 

* INTEGER * 

* * 
***************** 



-*. DELIMITER ( .* 



PREVIOUS 
OPERATOR 
, LOGICAL 



* 32 * 

* * 
**** 



* PUT VARIABLE * 

* NAME IN * 

* DICTIONARY * 
***************** 



.* SECOND 


*. 


YES 


*. SCANNING 




* X 


*. 


* 




*. .* 






*. .* 




V 


* NO 




***** 


**** * 




*037* 


*03«* ■ 




* Ft* 


* G1 *->«FROM 




* * 


* * "036F1 




* 


**** V 






AROH .*. 






31 *. 







■*. DELIMITER * .* 



**** 
¥ * 

k F5 * 
k * 

**** 



**** 
* * 

¥ F5 1 
¥ * 

*** + 



*****J1 ********** 



¥ F5 * 
k * 

**** 



***************** 

**** 

* * 

* H2 * 

* * 
**** 

V 
*****H2 ********** 



***************** 

**** • 

* * • 

* J2 *->« 



*****F3********** 



***************** 



«<- 



***** 

♦ 037* 

* Ft* 



***** 
*035* 
* A1* 



EH *. 


E5 *. 




. * IS *. 


*. YES 


.* PREVIOUS 


DELIMITER ( .* X 


*. OPERATOR = ( 


.* ' 


*. OR , 


*. . * ' 


*. .* 


*. .* V 


*. .* 


* NO ***** 


* NO 


• **** *0 3 5* 


**** * 


' * * * A1 * 


*034* ' 


X->* G1 * * * 


* F5 *->'FROM 


* * * 


* * '036E5 


**** 


**** V 




AR05 .*. 




F5 *. 




.* IS *. 




YES . * PREVIOUS 








*. / 



.* IS * 

PREVIOUS 

TYPE 

. INTEGER 



.* CURRENT 
TYPE 
*. INTEGER 



*****J(|********** 



***************** 



*****K4********** 

* MAKE INSERT * 

* ENTRY WITH ) * 

* AND LAST * 

* POINTER * 

* * 
***************** 



G5 *. 
.* IS * 
.* CURRENT 
TYPE 
*. INTEGER 



*****H5* ********* 

* MOVE NON * 
->*INTEGER TYPE TO* 

* PUSH TABLE * 

* * 
***************** 

• **** 

• *035* 
X->* A1 * 

* * 
**** 

*****J5********** 

* PUT PREVIOUS * 

* POINTER IN PUSH*< — X 

* TABLE * 

* * 
***************** 



***** 
*035* 
* A1* 
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***** 

*035* 
* A1* 



Chart 035. ARPRO Routine, Part 2 of it 



***** 
*035* 






* A1* 






* * 

* 






■FROM 






'031IE1.H5, 
V J2,J5,Kii 
.*036G1 










AR71 




A1 *. 


*****A2 ********** 




. * *. 


*LTCOL 042A1* 




IS *. YES 












. OR H . * 


* STRING * 




*. .* 


* * 




*. .* 


***************** 




* NO 
i 


• **** 
' *03<t* 
X->* A4 * 

* * 




V 








AR72 




B1 *. 


*****B2 ********** 


*****B3 ********** 




* * 


* * 


IS *. YES 


*MOVE DELIMITER * 


* SET INTEGER * 


DELIMITER .* 


>* IN POSH AND * 


>*CONSTANT SWITCH* 


. PERIOD .* 


♦UPDATE POINTERS* 


* OFF * 



***************** 



***************** 



C1 *. 

.* IS *. 

DELIMITER 

LOGICAL 

.OPERATOR . 



V 
***** 
*036* 
* A3* 



.* IS 


* 


YES 


>*. DELIMITER 




* X 


*. 


.* 


1 


*. .* 






*. . * 




V 


* NO 




**** 

* * 

* F4* 

* * 
**** 



* IS *. YES 
DELIMITER ( .* 



**** 
YES * * 

* >* H4 . 



K IS *. YES 
DELIMITER ) .* 



AR76 

*****F 2* ********* 

* SUBTRACT ONE * 

* FROM * 
- — >* PARENTHESIS * 

* COUNTER * 

* * 
***************** 



IS 


*. 


NO 


. * 


INTEGER 


DELIMITER 




* X 


*. 


CONSTANT 


SEMICOLON. 


* 


• 


* 


ARGUMENT 


*. .* 








*. 


*. .* 




V 




*. . * 


* YES 




***** 
*03«* 

* A4* 

* * 
* 




* NO 
V 



*****H 1 ********** 



***************** 



.* IS *. NO 

. OPERATOR IN .* 

*. PUSH -. .* 



**** ' 

* * ' 

* J2 *->• 

* * • 
**** V 

. *. 
J2 *. 
. * IS * 
. * PREVIOUS 
*. OPERATOR 



***** 

*037* 

* A1 * 

* * 



*****K1* ********* 

* MAKE INSERT * 

* ENTRY WITH ) * 
X * AND LAST * 

* POINTER * 

* * 
***************** 



*****K2 ********** 

* PUT 1 AND LAST * 

* POINTER IN * 

* INSERT TABLE * 

* * 
***************** 

i 

V 
**** 

* * 

* J2 * 

* * 
**** 



IS ID 
AN ARRAY 
. NAME 



**********♦♦♦♦*♦* 



***** 
*0-34* 
* C3* 



*****G3********** 

* PUT B ( AND * 
►* POINTERS IN *- 

* INSERT TABLE * 

* * 
***************** 



*****H 3* ********* 

* * 

* PUT I AND * 
>* POINTERS IN * 

* INSERT TABLE * 

* * 
***************** 



*****D 4 ********** 

* ADD ONE TO * 
>* PARENTHESIS * 

* COUNTER * 

* * 
***************** 



*****E4* 

* CREATE 

* FOR 

* EXPRES 

* PUSH 



********* 
ENTRY * 
A SUB * 

SION IN * 
TABLE * 



***************** 
**** 

* pa *-> 

* * 
**** 

V 

*****F1**** ****** 



***************** 



D5 *. 

.* IS *. 

.* DELIMITER *. 

•OR' OR 

*. 'AND' .* 

*. . * 

*. . * 

* YES 



*****F5** ******** 

* PUT ) AND * 

* PREVIOUS * 

* POINTER IN * 

* INSERT TABLE * 

* * 
***************** 



**** 

n * 

K Ht * 

* * 

**** 



» INTEGER 

CONSTANT 

«. ARGUMENT 



**** 
K * 

k G5 * 
fr * 

**** 



* SAVE POINTERS 
— >*SUB- EXPRESSION 

* IS INTEGER 



***************** 

' **** 
' *034* 
X->* A4 * 

* * 
**** 

*****H5 ********** 

* PUT B ( AND * 
•* POINTERS IN *- 

* INSERT TABLE * 

* * 
***************** 



*****J 3 ********** 

* * 

* * 
->*UPDATE POINTERS* 

* * 

* * 
***************** 



.* TWO *. 
.* PREVIOUS *. N 
.OPERATORS ARE.*- 



END OF 

RITH IF 

STMT 


*. 
* 


NO 
* X 


. * 
* . .* 
* YES 




V 
***** 
*034* 
* B4* 



***** 
*037* 
* A1* 



*****K-U ********** 

* SET COMPLEX * 

* SWITCH ON * 

* * 

* * 
***************** 

i 

V 
**** 

* * 

* G5 * 

* * 
**** 



*****K 5**** ****** 

* * 
♦PUT ) AND LAST * 

■* POINTER IN * 

* INSERT TABLE * 

* * 
***************** 
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Chart 036. ARPRO Routine 3 of 1 



***** 

♦036* 
* A1* 

* * 



***** 
*036* 
* A3* 

* * 



*****A1* ********* 

♦ BESET SWITCHES * 

♦ AND * 
♦INITIALIZATION * 

♦ ♦ 
♦♦♦♦♦♦♦♦♦******♦♦ 



'035B3 
•037C4,J3 



*****A 3* ********* 



***************** 



IS 
DELI Ml TEE 
, PEBIOD . 



* INCBEHENT * 
>* LENGTH OF *. 

* FRACTION PART * 

* * 
***************** 



► IS THE 
LETTER E 
1. D 



*****D1 ********** 



***************** 



C3 *. 
**** GETWRD 041A1 

* * DEL .* *. ID 

* Jt *< *.GET NEXT WORD.* 



* INCREMENT * 

* LENGTH OF * 

* FRACTION PART * 

* / * 
***************** 



***************** 



IS 
DELIMITER 
, PERIOD . 



* NO 



' ♦*** 

■ * * 

X->* J3 * 

* * 

♦ *** 



*****C5 ********** 



♦♦♦♦♦♦*********** 



*****D5* ********* 



***************** 



*****E 2**** ****** 
* 
* 
*<- 



SET SINGLE 

PRECISION 

SWITCH 



AR86 
YES . 



V 
***** 
♦037* 
* F1* 



***************** 



***** 
*03«* 
* G1* 



E3 *. 
.* IS *. 
n DELIMITER 
THE LETTER 



F3 *. 

.* IS *. 

* DELIMITER 

THE LETTER 



SECOND 


*. 


NO 


SCANNING 


* 


* X 

i 


*. . * 






*. . * 




V 


J YES 




***** 
*034* 
* F5* 


V 




* * 








♦ 037* 






* F1* 







*****£ 1 ********** 



**.*************** 



G3 *. 
**** GETWRD 01»1A1 

k * DEL .* *. NUM 

k ja *< ♦.GET EXPONENT .♦ 

► * ♦. PART .* 

**** *. .* 

*. . * 
♦ ID 



***** 
*035* 
* A1* 



*****H2 ********** 

* ADD ZEROS TO * 

* MAKE 7 DIGIT *< 

* NUMBER ♦ 

* ♦ 
***************** 



H3 *. 
.♦LETTER ♦ 
.♦D AND LESS 
THAN 7 
♦. DIGITS 


*. 


. * 


*. 

* 


* 
NO 


**** ' 




* ' 
J3 *->• 




* " 




**** V 




. * 
J3 


*. 



.* NUMERICAL *. 
■>*. EXPONENT 

*. PRESENT .* 



*****Jf|********** 
* * **** 

*SET EXPONENT TO* * * 

->* ZERO *< * J« 4 



***************** 
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*****K3********** 

* SAVE EXPONENT * 
-* PART SET TYPE * 

* TO REAL * 

* * 
***************** 



Chart 037. ARPRO Routine, Part 1 of i| 



"FROM 
•035J1,K3 



**A1******* 



♦INITIALIZATION 

* SECOND i 

♦SCANNING * 

*********** 

**** 

* * 

* B1 * 

* * 
**** 

V 
*****B1********** 

♦GET NEXT INSERT* 
X — >♦ ENTRY ♦ 



♦♦*******♦*****♦♦ 




♦ ♦** • 




♦ ♦ • 




♦ C1 ♦->• 




♦ ♦ ■ 




♦ ♦♦♦ V 




.♦. 




CI ♦. 




.♦INSERT ♦. 


♦ ♦♦♦ 


.* POINTER = ♦. NO 


♦ 


♦. CURRENT .♦ 


->♦ C3 


*. POINTER .♦ 


♦ 


♦ . . ♦ 


♦ ♦♦♦ 



♦ ♦♦♦ 
* C3 



*-> 



V 

♦ ♦♦♦♦ 

♦ 036+ 

♦ AW 



*:*** V 
ARS2 .*. 

C3 *. 
GETHRD - 041A1 

NUM ..*' *. DEL 

*.GET NEXT ITEM.* 



***** 

♦ 034* 

* C2* 



ARS72 V 

*****E1 ***♦♦***♦* 
♦XTBPRO 049A1* 



ARS74 V 

*****E2* ********* 
♦XTBPRO 049A1* 













*GENERATE BINARY* 


♦ GENERATE 


TRUNC 


*- 


— X 


* ( * 


* ( 




* 


■ 


♦ ♦ 


♦ 




* 




***************** 


***♦♦♦♦******♦*** 


V 










**** 




♦ ♦♦♦ 






* 


♦ 037* 


♦ ♦ 






* B1 


* F1 *~XFROM 


♦ F2 * — X 






* 


* ♦ «036E1,E5 


* * ' 






**** 


♦ ♦♦* V 


**** ' 








ARS22 .*. 


V 








F1 *. 


*****F2 ********** 




. * *. 


♦LTCOL 


042A1* 




.* IS IT *. YES 










*. AN H FIELD .*— 


--->♦ 




* 





G1 *. 

.♦INTEGER*. 

, *CONSTANT OR*. 

DOUBLE 

*. PRECISION.* 



K Ft * 
* 4 

**** 



♦COLLECT LITERAL* 
♦ ♦ 

**♦***********♦♦♦ 

' **** 

■ ♦ ♦ 

X->* C3 * 

* * 

***♦ 

*****G2 ********** 



***************** 
i 

' ***♦ 
* ♦ ♦ 

X->* H5 ♦ 
* * 

**** 



*****E3 ********** 

♦GENERATE EXTLAB* 

* AND NUMERIC *< 

* PART * 

* ♦ 
***************** 



*♦** 

* * 

* G4 4 
x * 

**♦♦ 



* IS 4 

INSERT CODE 
». BLANK .4 



IS 
DELIMITER 
. PERIOD . 



***** 
*036* 
* A3* 



* NO **** 

• * * 

• ♦ F2* 
i * * 

* **** 
V 

. *. 



* **** 

■ * * 

X->* Ft * 
* * 

**** 



GET NUMERIC .* X 

*. PART .* 



**** ■ 

*037* ' 

* fu *->' 



"FROM 
V03MF1 ,J2 



IS 
DELIMITER 
. PERIOD . 



**** ' 

* * ' 

* G« *->« 



**** V 
ARS30 .*. 

Gt *. 
.♦INSERT *. 
YES .* POINTER = *. 

*. CURRENT 

*. POINTER .* 



*****F5 ********** 



***************** 



NUMBER 
OF DIGITS 
. IS 7 



*****J1 ********** 
♦XTBPRO 0U9A1* 



♦ GENERATE FLOAT 

* ( 



♦♦*******♦♦♦♦♦♦** 



*****K1* ********* 

♦ PUT CONSTANT ♦ 

♦ AND GENERATE *- 

* .6) * 

* * 
***************** 



-X 


♦INSERT CODE IN *< 
* T EXT * 




* * 


V 


***************** 


♦ ♦♦♦ 




♦ 
F1 ♦ 

♦ 


• **** 

• * * 
X->* GU * 


♦ ♦** 


* * 




**** 




***** J 2* ********* 
♦ XTBPRO 049A1* 



**** 
* i 

¥ Ft 4 
¥ 4 

♦ ♦♦♦ 



♦*****♦♦♦♦♦♦♦♦*** 
I 

' **♦♦ 

■ ♦ ♦ 

X->* C1 ♦ 

♦ * 

♦ ♦♦♦ 

♦ ♦♦♦^♦♦♦♦♦**** 

* RETURN *<- 

♦ ♦ 
♦***♦*♦♦*♦♦**** 



CIS* 

INSERT CODE 
¥. I OR ) .* 



IS 
DELIMITER 
. PERIOD . 



* YES 
■ **** 
' *036* 
X->* A3 * 



*♦♦♦ 

♦ * 
■ >♦ C1i 

♦ i 
**** 



•♦PUT SUBSCRIPT 1* 

* IN REVERSE * 

* ORDER * 
******♦♦♦♦♦****** 



•>* PUT COLLECTED * 

* WORD AND * 

* DELIMITER * 
***************** 



J5 *. 

.* NEXT *. 
DELIMITER 
IS END OF 

. STMT 



****K5 ********* 
* 4 

K RETURN 4 

X 4 

*************** 
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Chart 038. ENTTDI Routine 



EHTTDI 

****A2 ********* 

* ENTER * 

* * 

*************** 



**B2******* 

* SET * 

* SWITCHES * 

* (GEDISW) AND * 

* (PURIO) OFF * 

* * 
*********** 

**** " 

*038* • 

* C2 *->«FROH 

* * «040C2 
**** V 

.* . 

C2 *. 

.* IS IT *. 

.* THE FIRST *. J 

•>*. ENTRY IN THIS.*- 

*. TABLE .* 



**D2******* 



* SET SWITCH 
k (PDRIO) ON 



*********** 



V 

***** 
*043* 
* C2* 

* * 



IS IT A 

RESERVED 
, WORD 



*****FROH 
*038*01»3C1 
* G2* 



* SAVE NAME AND * 

* POINTER TO NEXT* 

* ENTRY * 

* * 
***************** 



* IS *. YES 

SWITCH .* X 

*. GEDISW ON.* 



EN23 .*. 

E3 *. 
.* IS *. 

NO .* THERE AN *. 
X *. EQUIVALENCE .* 

*. . * 



EN2H V 

*****F3 ********** 



***************** 



UPDATE * 

POINTER AND * 
KEY * 

k * 

*******.*<*** 



****H3 ********* 

k RETDRN * 

k * 

*************** 



*****J1 ********** 



***************** 



NO . * IS THE 
■--*. NAME 

*. PRESENT 



* YES 
i< 



***************** 



****K2********* 

k RETURN * 

* 
*************** 
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Chart 039. ERMS Routine 



****A1 ********* 

¥ ENTER < 

¥ * 

*************** 



.* ON AN *. 

. EXECUTABLE . 
♦.STATEMENT.* 



* PLACE END OF * 

* STATEMENT IN * 

* TEXT * 
***************** 



ER07 V 

*****E1 ********** 
♦LTCOL 002A1* 



ER05 V 

**D2******* 
♦INITIALIZE * 

* POINTERS TO 
* BEGINNING OP 

* STATEMENT 

* * 

*********** 



* ATTACH ERROR * 

* NUMBER TO * 

* STATEMENT * 
**** ************* 



***************** 



* RESTORE ERROR * 

* NUMBER (XTEM) * 



***************** 



****G1********* 

K RETURN * 

¥ * 

*************** 
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Chart 040. GETTBL Routine 



GETTBL 

**** A 1 ********* 

* ENTER * 

* i 
*************** 



**B1******* 

K * 

BESET 

SWITCH 

(GEDISH) 

\> * 

*********** 



IS 

ARGUMENT 

TDI 



IS IT A 
SEARCH BY 
. NAME 



**C2******* 



* SET SWITCH 
■>* (GEDISW) ON 



*********** 

**** 
*0 40* 

* D2 *— XFROB 

* * •043G4 
**** • 

V 
*****D 2* ********* 

* COMPOTE * 

* CHAINING AND * 

* COPY ENTRY * 

* * 
***************** 



V 

***** 
*038* 
* C2* 



♦COMPOTE POINTER* 

* TO LAST ENTRY * 

* OF TABLE * 

* * 
***************** 



NO . * IS IT 

1 < *. THE RIGHT 

*. NAME 



IS IT 
THE FIRST 
, ENTRY . 



****F 2* ******** 

->* RETORN * 

* * 

*************** 



**G1******* 



*********** 



***** 
*0i»3* 
* E3* 
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Chart 041. GETWRD Routine 



GETWRD 

****A1 ********* 

* * 

* ENTER 4 

* i 
*************** 



**A2******* 

♦"initialize 
->* switches and 

* CELLS 

* * 

*********** 



**,***B 2 ********** 

* GET NEXT * 
X >* CHARACTER IN * 

* WKBF BUFFER * 

* * 
***************** 



IS IT A 

SPECIAL 

, CHARACTER. 



D2 *. 
. * IS IT *. 
* AN 

ALPHABETIC 

*. CHARACTER. 

*. .* 



, * IS IT A 
NUMERIC 
♦ .CHARACTER. 



**F2******* 

**SET SWITCH 
* ON IF FIRST 
* CHARACTER 
* * 

**♦♦♦♦****♦ 



*****G2 ********** 

* UPDATE LENGTH * 

* OF WORDS SAVE *<- 

* WORD ♦ 

* * 
***************** 



. *. 

H2 *. 

.* ARE *. 

, *THERE MORE *. 

.CHARACTERS IN. 

♦ . WKBF .♦ 



J********** 



***************** 



G3 *. 
.* IS *. 
.* FIRST 
. CHARACTER 
*. NUMERIC . 



* SAVE WKBF * 
->*BUFFER POINTERS* 

* AND DELIMITER * 

* * 
***************** 



***************** 



****K3* ******** 

♦RETURN TO WDDE 4 

* * 

*************** 



****ie» ********* 

♦ RETURN TO WDNU * 

* * 

*************** 



****K5********* 

♦RETURN TO WDAL A 
* 4 

*************** 
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Chart 042. LTCOL Routine 



LTCOL 

****M ********* 

* * 

* ENTER * 

* * 
*************** 



* PLACE FINAL * 
->*DELIMITEK AFTER* 

* LAST CHARACTER * 

* * 
***************** 



*********** 



*****B3 ********** 

♦PREPARE LITERAL* 
->* TO BE POT IN *-~X 

* TABLE TDT * 

* * 
***************** 



***************** 



*****C2 ********** 

* INCREASE * 

X-> ♦LITERAL COUNTER* 
' * (LTPT) BY 1 * 

' * * 

■ ***************** 
**** ■ 

k * ■ 

► C2 * • 

It * ■ 

**** * 



» FEOUTRED 

NUMBERS OF 
► . CHARS . 



, *LITERAL CTR*. 

, GT. CHARACTER . < 

*. COUNTER .* 



***************** 



CHARACTER 

FINAL 

.DELIMITER. 



*****E2********** 

* INCREASE WORD * 

* COUNTER 7LTHD) * 

* BY T * 

* * 
***************** 



♦♦♦♦E3 ********* 
k * 

* RETURN * 

* * 
*************** 



*****F1 *****♦*♦♦* 
*' INCREASE * 

* CHARACTER * 
X * COIINTER(LTLG) * 

* BY 1 * 

* * 
***************** 



IS CARD 

COUNTER 

.EQUAL 24 



k******* ********* 



**** 

► C2 *< 

► * 
**** 



*****H2********** 
♦PREPARE WORD TO* 



♦********♦***♦**♦ 
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Chart 043. PUTTBL Routine 



POTTBL 

****A1*** ****** 

* ENTER * 

* i 
*************** 



**A2******* 



*********** 



YES 


* 


IS 


* 




X—* 




SWITCH 




* 


' 


* 


PUR 10 ON 

*. . * 


. * 




V 




*. .* 






***** 




* NO 






*038* 










* G2* 










* * 










* 




V 






*****D 1 ********** 


* 








* 


♦PROCESS KEY 


FOR* 


* 




CHAINING 




* 



***************** 



E1 *. 

.♦CURRENT*. 
NO .*ENTRY > OR *. 

X *. = LAST .J 

*. ENTRY .* 



**F1 ******* 



*********** 



PU1H2 

V 

****S1********* 

* o 

* RETDFN * 

* 4 
*************** 



IS *. NO 

ARGUMENT .* 

TDI .* 



* YES 
**** ■ 

*0U3* ' 

* C2 *->«FROM 

* * '038D2 
**** V 

. *. 
C2 *. 

YES .*CURRENT KEY*. 

*. EQUAL TO .i 

*. WANTED .* 
*. KEY .* 



* FIRST *. YES 
DICTIONARY .* X 

K. ENTRY .* 



*****E2 ********** 

* * 

* COMPUTE KEY * 

* * 

* * 
***************** 



***F2 ************ 

* WRITE OR * 

REWRITE ON 
* SYSUT1 * 

***************** 



YES . * IS 

X *. SWITCH 

*. ENFSW ON 



***H2************ 



***************** 
>i< 



*********** 
i 

f 

V 

**** 

* * 

* C1 * 

* * 
**** 



**B3******* 



*********** 



*****D 3* ********* 



***************** 

**** • 

*0U3* ■ 

* E3 *->'FROM 

* * '040G1 
**** ' 

PU500 V 

*****E 3* ********* 



COMPUTE KEY *<- 



***************** 



.♦CURRENT KEY*. YES 

». EQUAL TO .* 

*. WANTED .* 
*. KEY .* 



G3 *. 
.* IS IT *. 
THE FIRST *. YES 

TABLE .* > 

. ENTRY .* 



***H3V**** ******* 

* WRITE OR ♦ 

REWRITE ON 
♦ SYSUT1 ♦ 

♦♦****♦*********♦ 



.♦ IS 

SWITCH 
*.GEFSW ON 



***K 3*** ********* 



**F4******* 



**♦♦♦****** 



.* IS 

SWITCH 
*.PURIO ON 



**H4******* 



*********** 



****J4 ********* 
* RETURN * 

*************** 



***** 

*04 0* 

* D2* 

♦ * 



***************** 
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Chart 044. SLPAR Routine 



SLPAR « 

7 

****A 2 ********** 

* ENTER * 

* 4 
*************** 



***************** 
**** 



-*.GET NEXT WORD.* X 



!■*** 

4 

J2 * 

4 

k** + 



***************** 



***************** 



SL11 V 

*****F2 ********** 
♦ XTBPRO 0K9A1* 



♦GENERATE 'NAME'* 
* * 

***************** 

■ **** 

' * * 

X->* C2 * 
* * 

**** 
13 .*. 

G2 *. 



**** 

* 4 

k D2 * 



■ DEL 
SLOU .*. 

H1 *. 

GETHRD 0U1A1 

NUM .* *. 

X — + .GET NEXT WORD.*<- 



**** 
k * 

k J2 * 
k 4 

**** 



**** 

* 4 

* J2 4 

* 4 
**** 



**** ■ 




* * * 

* J2 *->■ 




* * * 




**** ■ 
SL20 V 




*****J2 ********** 
*ERMS 039A1* 



***************** 



* ERROR MESSAGE * 

* * 
***************** 



**** 
* 4 

k A2 4 
k * 

**** 



****K2 ********* 

* * 
k RETURN 4 

• 4 
*************** 
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Chart 045. SPDIM Routine 



**** 

k * 

* A2 * 
k * 

*♦** 



SPDIM 

**** A 1* ******♦♦ 

* ENTER * 

* 4 
*************** 



*****B1 ********** 

* * 

* SAVE POINTER * 

* BCD NAME FLAG * 

* HOED * 

* * 
***************** 

**** ' 

* * ' 

* C1 * 

* * 
**** 



->' 

•< 

. . . . V 

DM12 .*. 

C1 *. 

GETHRD 011A1 

NOM .* *. DEL 

X *.GET NEXT WORD.* 



***************** 



♦SET CLASS FLAG * 

* * 

* * 
***************** 



*****F 1 ********** 

* PREPARE DIM * 

* TABLE FOR * 

* IDENTIFIER * 

* * 
***************** 



* ENTRY IN * X 

* DICTIONARY * 

* (TDI) * 
***************** 



* PREPARE DIM * 
X — >*TABLE ENTRY FOR* 

* CONSTANT * 

* * 
***************** 



DM20 

*****C 2 ********** 
♦EEMS 039A1* 



* ERROR MESSAGE * 



***************** 



DM16 


. *. 

J1 *. 






. * IS *. 


**** 


YES 


* THERE *. NO 


* 


X — *. 


ANOTHER .* 


->* A2 * 


1 


*. DIMENSION.* 


* 




*. . * 


**** 


V 


*. .* 




**** 


* 










C1 * 






* 






**** 







«****A3********** 
*PUTTBL 043A1* 

->* ENTRY IN * 

* DIMENSION * 

* TABLE (TDM) * 

***************** 



*****B3********** 

♦PREPARE NUMBER * 

* OF DIMENSIONS * 

* IN TDI * 

* * 
***************** 



C3 *. 
.♦HAS THE*. 
ARRAY AN < 
ENTRY IN 
TOV .< 



*****D3 ********** 
*GETTBL 0U0A1* 



♦ GET. ENTRY FROM 

* TABLE (TOV) 



***************** 



*****E3 ********** 



***************** 



* ENTRY IN * 
♦OVERFLOW TABLE * 

* (TOV) * 

***************** 



*****G3 ********** 

* PLACE TOV * 

* POINTER IN * 

* DICTIONARY * 

* * 
***************** 



♦iRESTORE POINTER* 

* BCD NAME FLAG * 

* HORD * 

* * 
***************** 



****J3 ********* 

* RETURN * 

* * 
*************** 
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Chart 046. SPDTA Routine 



****A1********* 

K * 

(< ENTER * 

*************** 



**B1******* 

* * 

♦INITIALIZATION * 
* * 

* * 
*********** 



**** 

* * 

* B2 *--X 

* * * 
**** V 

. *. 
B2 



ASTERISK 

*. . * 

*. . * 
* YES 



*****C2 ********** 



***************** 



**** 

* * 

* B2 * 



DA080 V 

*****E1 ********** 
*£UTTBL 0H3A1* 



***************** 



F1 *. 

SLASH 



***************** 



****H1 ********* 
n * 

k RETURN * 

* * 

*************** 



***************** 



*. YES 
QUOTE .* X 



*****F2 ********** 



***************** 



NO . 


* 


NEXT 


*. 




CHARACTER 




*. 


EQUAL H 
*. . * 
*. . * 
* YES 



***************** 
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Chart 047. SPPRO Routine 



*** * A 1 ********* 
K i 

k EBTEE 1 

► > 

*************** 



**** 

* * 

* B2 * 



**A2******* 



>*rHITIALI2 

< * 


ATION * 
* 


* 


*• 


* 




*********** 




**** • 






* * • 






* B2 *->• 






* * • 






**** V 






SP03 . *. 






B2 


* . 




GETWRD 


0U1A1 




ID .* 




NUM 


X *. GET AN 


ITEM .* X 


' *. 


. * 




■ *. 


. * 




• *. . 


* 




• * DEL 

i f 

x ><< 


X 



**** 

* _ * 

* E5 *<-X 

* * * 
**** ' 

*****A3********** 



ADD ONE TO 

PARENTHESIS 

COUNTER 



*<- 



***************** 

**** 

* * 

* E« *<-X 

* * • 
**** ■ YES 

.* . 
B3 *. 



**** 

* * 

* A4 * 

* * 
**** 



YES .* IS *. 
*. DELIMITER ( .* 



-*. DELIMITER , .* 



*****C1 ********** 

* ADD ONE TO * 

* PARENTHESIS *<- 

* COUNTER * 

* * 
***************** 



**** 
K * 

f B2 * 



*****E1 ********** 

* * 

* SUBTRACT ONE * 

* FROM PARENS *< 

* COUNTER (XL, ET) * 

* * 
***************** 



YES .* IS *. 
*. DELIMITER ( .* 



.* IS *. NO 
*. DELIMITER ) .* 



.♦PARENTHESIS*. 
. COUNTER = . 
♦ . . * 



*****C3 ********** 

* SUBTRACT ONE * 

* FROM * 

* PARENTHESIS *- 

* COUNTER * 

* * 
***************** 



END OF 
SUBSCRIPT 
, LIST 



E5 4 
4 

!■*** 



END OF *. 
ONE 
.SUBSCRIPT.* 



G2 * 
»*** 



IS 



*. 



.* 



*. DELIMITER * 
*. 
*. 

*. . * 
* NO 



.* * 4 
.* IS **. NO 

k. DELIMITER .* 

*.END MARK . * 



**** ' 

* * ' 

* E« *->• 

* * ' 
**** \ 

. 4 

EH 



*****3 5********** 



***************** 



SP19 V 

*****D 5**** ****** 
♦XTBPRO 0U9A1* 



***************** 

**** 

* * 

* E5 * — X 

* * ■ 
**** ' 



* GENERATE , 

* 

**************** 



*****F2********** 

* SAVE POINTERS * 

* TO RESUME * 

* SCANNING * 

* * 
***************** 



* G2 * 

* * 
**** V 

3 .*. 

G2 *. 
.* SPPRO *. 
.* CALLED BY *. I 
«. FIRST .*- 

♦.SCANNING .* 
*. ARPRO.* 
*. . * 
* NO 
**** ' 

K * ' 

k H2 *->• 

K * ' 

**** ■ 

J V 

»****H2* ********* 



*****F3********** 

* INCREASE * 
♦SUBSCRIPT COUNT* 

* BY 1 SAVE * 

* POINTERS * 

* * 
***************** 

■ **** 

• * * 

X->* B2 * 

* * 

**** 

****G3********* 

>* RETURN *<- 

* * 
*************** 



* GENERATE ) * 

* * 
***************** 



*****31********** 



***************** 



*****F5********** 

* * 

* DECREASE * 
♦SUBSCRIPT COUNT* 

* BY 1 * 

* * 
******♦♦♦♦******* 

' **** 

X->* H2 * 

* * 

**** 



***************** 



SP10 

*****J1 ********** 
*ENTTDI 038A2* 



SP091 .*. 

J2 *. 
GETWRD 0H1A1 **** 

ID .* *. NUM * 

*. GET NEXT ITEM.* >* At 



***************** 



***************** 



**** 

^ , * 
K AU 4 
H * 

**** 



Phase 10 71 



Chart 048. SPSDB Routine 



SPSUB 

****A1*** ****** 

* ENTER 4 

* 4 
*************** 



***************** 



♦GET DIMENSIONS * 

* OF VARIABLE * 

* FROM TDB * 
***************** 



Di *. 
GETHRD 041A1 

ID .* *. DEL 

X — *.GET NEXT WORD.* 



**** 

» 4 

K D2 4 

¥ 4 

**** 



* ERROR MESSAGE * 

* * 
***************** 



*****E1 ********** 

* COMPUTE * 
♦DISPLACEMENT IN* 
♦ARRAY AND SIZE * 

* OF ARRAY * 

* * 
***************** 



♦♦♦*F1********* 

¥ * 

K RETURN * 

* 

*************** 
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Chart 049. XTBPRO Routine 



XTBPRO 

****A1 ********* 

* ENTER « 

* * 
*************** 



*****B1********** 

♦MODIFY NAME IF * 

* POSSIBLE * 

* CONFLICT * 



BRNPRO 

**** A3 ********* 

* ENTER * 

* * 
*************** 



**B3******* 



***************** 


* * 




* C2 * 


**** « 


* * 


* * ' 


**** 


* C1 *->■ 


■ 


* * ■ 




**** V 


V 


.*. 


XT12 .*. 


C1 *. 


C2 *. 


.* SAME *. 


. * IS *. 


. *STMT SINCE *. YES 


.* THERE 


*. PREVIOUS .* 


>*. ENOUGH SPACE 


*. CALL .* 


*. IN THE . 


*. .* 


*.LINE .* 



*********** 



***D1* *********** 

* COPY ERROR * 
HESSAGE 
* NUMBER IF ANY* 

***************** 



***ET* *********** 

* WRI TE * 

PREVIOUS LINE 
* ON SYSUT1 * 

***************** 



**F 1******* 



♦ INITIALIZATION * 

* OF NEW STMT * 

* OR LINE * 

*********** 



***G1***** ******* 

* COPY TEXT AND * 
DELIMITER IN 
* BU FFER * 

***************** 



LB10 V 

*****cu ********** 

* SKIP LEADING * 

* ZEROS AND * 

* BLANKS * 

* * 
***************** 



***************** 



* IS * 

SWITCH BRSW- 
*. ON .* 



LABPRO 

****A 5* ******** 

* * 

* ENTER * 

* * 
*************** 



**B5******* 



*********** 



*****FU********** 

♦PLACE SEMICOLON* 

* IN TEXT * 

* * 

* * 
***************** 

V 
**** 

* * 

* C2 * 

* * 
**** 



***************** 

' **** 

' * * 

X->* C1 * 
* * 

**** 



****H1 ********* 

* RETURN * 

n * 

*************** 
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PHASE 20 



Phase 20 (see Chart 050) is called if the 
source program includes either of the two 
following types of statements: 



The output from Phase 20 is a modified 
dictionary (TDI r TDT, TEH) . On completion 
of this phase, control returns the Control 
Phase. 



1. EQUIVALENCE statements 

2. Statements containing initial values 

that is, if there are any entries in tables 
TEQ. or TDA. 

Phase 20 then rearranges the tables 
created during Phase 10 that are associated 
with these statements, in order to prepare 
the generation of the PL/I target program 
in Phase 30. 

The input to Phase 20 consists of the 
dictionary (TDI) , and its associated 
tables: TEQ, TDT, and TDA. 

Names occurring in EQUIVALENCE state- 
ments are processed first. An EQUBLK j 
block is created. 

Embracing all the elements of the egui- 
valenced names (see the section "EQUIVA- 
LENCE Statement" in the language conversion 
manual) . The size, type, and length infor- 
mation associated with each element of the 
block is saved in table TEH, and a 
reference to this table for each of the 
eguivalenced names is entered into the 
overflow table (TOV) . To this reference is 
added the relative position, within the 
embracing block, of the first element of 
the name. This procedure is repeated for 
each eguivalence chain in the FORTRAN 
program. 



Phase 20 then places the initial values 
in ascending numerical order corresponding 
to the order of the elements. If any ele- 
ments within the sequence have not been 
assigned. Phase 20 takes into account the 
number of elements between two consecutive- 
ly initialized elements of an array. 



If the initial value is a string of 
characters, a flag is set on in the TDT 
entry which contains the string and the 
type of dictionary entry for this name is 
modified to CHARACTER. 

Where initialized variables or arrays 
occur in an EQUIVALENCE statement, the con- 
verted variables cannot have the INITIAL 
attribute because of the method of conver- 
sion used by the LCP. 



PHASE 20 ROUTINES 



This section describes the two processing 
routines used by Phase 20: DTPRO and 
EVPRO. The two utility routines, GETTBL 
and PUTTBL, used by this phase have already 
been described in the section "Utility 
Routines. " 



DTPRO 



Chart 051 



Purp_ose: To assign initial values to 
variables or to elements of arrays 

Called_by : PH20 

Processing^: The input to this routine con- 
sists'of tables TDA and TDT. Variables 
included in DATA or T5TPE statements are 
assigned a value determined by the literals 
appearing in these statements. The 
literals corresponding to each variable are 
chained together. 

Ro u tin© s_ca lied: GETTBL, PUTTBL. 

Exit: Calling routine 



EVPRO 



Chart 052 



Purpose: To create EQUBLKs. 

Called_by_: PH2 

P-Eocessincj: The input to this routine con- 
sists of~tables TDI, TEQ, and TOV. All 
eguivalenced variables are collected, and 
those which are included in the same EQUBLK 
are chained together. In addition, the 
size of each EQUBLK is computed, and the 
table TEH entry associated with each block 
is created. The chained variables are then 
collected and the overflow table (TOV) for 
each variable is updated. 

5.21i£ilies_ca lied : GETTBL, PUTTBL. 

Exit: Calling routine. 
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Chart 050. Overall Logic of Phase 20 



****A1* ******** 

* * 

* ENTER * 

* * 
*************** 



*****D1********** 
*DTPRO 051 A2* 



♦DATA PROCESSING* 
* * 

***************** 



****E1********* 

» RETORN * 

* * 

*************** 



***************** 
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Chart 051. DTPEO Routine 



****A1 ********* 

* 4 

► ENTER « 

* 1 
*************** 



**A2******* 

* * 

->* INITIALIZATION 

* * 

* * 
*********** 

**** ■ 

* * " 

* B2 *->' 

* * * 

**** ' 



< ANOTHER * 
VARIABLE IN 
i. STMT .* 



*****F 1 ********** 



***************** 



* CHAIN FORWARD * 

* THE VARIABLES * 

* IN DATA * 

* * 
***************** 



*****C2 ********** 



***************** 



DT100 V 

*****D2 ********** 

* GETTBL 0U0A1* 

* GET NAME FROM *<- 

* (TDI) * 
+ * 
***************** 



NO .* REPEAT *. 
— +. COUNT EQUAL . *<- 
*. ZERO .* 



N ANOTHER 

LITERAL IN 
.. STMT 



.♦ANOTHER*. 

DATA STMT 

TO 

. PROCESS . 



* GET NEXT 

* LITERAL (TDI) 



***************** 



G2 *. 
,*IS THE *. 

CURRENT 
VARIABLE 
. FILLED . 



DTCOP V 

*****H2********** 
♦PUTTBL 0K3A1* 



PUT LITERAL 
IN (TDI) 



***************** 



D3 *. 

.* IS *. 
► REPEAT * 

COUNT EQUAL 
t. ZERO .* 



*****E 3* ********* 

*GET POINTER TO * 

* NEXT DATA * 

* STATEMENT * 

* * 
***************** 

■ **** 
1 * * 
X->* B2 * 

* * 
**** 



*****G 3* ********* 

* * 

* INCREASE * 
>* GENERATED * 

* REPEAT COUNT * 

* * 
***************** 



'DT500 V 

*****EU********** 

* SCAN(TOV) TO * 
♦FIND A VARIABLE* 

* INCLUDED IN * 
♦DATA STATEMENTS* 

* * 
***************** 



ANOTHER 

VARIABLE 

FOUND 



■DT550 V 

*****3t********** 
♦GETTBL 0U0A1* 

♦COLLECT LITERAL* 
♦FOR THE CURRENT* 
♦ VARIABLE * 

***************** 



*****Htt**** ****** 



***************** 



****F5*++****** 
► RETURN 4 

*************** 



♦SAVE POINTER OF* 
* LITERAL (TOV) * 



***************** 



DTC05 V 

*****K 2 ********** 

♦ GETTBL 0K0A1* 

♦ GET NEXT DATA * 

* VARIABLE (TDA) * 

* * 
***************** 



X * ENTRY IN * 

♦OVERFLOW TABLE * 
* (TOV) * 

*****♦♦♦♦♦♦****** 
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**** 

■ * 

► A3 * 

N * 

**** 



Chart 052. EVPRO Routine 



EVPRO 

****A1 ********* 

* ENTER * 

* * 
*************** 



EV200 

*****B1 ********** 
*GETTBL OltOAl* 

* GET THE NAME *<- 

* FROM EQUIV. * 

* TABLE (TEQ) * 
***************** 



* GET THE NAHE * 
*FRO« DICTIONARY* 

* (TDI) * 

***************** 



EV210 

NO .-. 



* THERE A *. 
POINTER TO . 

♦ .TABLE TO V.* 



EV230 V 

*****E1* ********* 
♦GETTBL 010A1* 

*■ GET ENTRY * 
* INFORMATION * 
*FROM TABLE TOV * 
***************** 



. *. 

F1 *. 

.* IS IT *. 

< THE FIRST 4 

VARIABLE OF 
.. GROUP .1 



*****G1 ********** 



***************** 



YES .* ALREADY 4 
X--*.EQOIVALENCED 



**** 
k * 

k F2 * 

k * 

**** 



**J1******* 

**UPDATE MAXI** 

k HEAD AND MAXI * 

♦TAIL OF GROUP* 

* * 

*********** 



*****A2********** 
♦GET POINTER TO * 
LAST ENTRY IN * 
EQUIVALENCE *- 

♦ TABLE (TEQ) ♦ 

* * 
***************** 



>* 



**♦* 






* * 

* F2 *- 


-X 




* * 






**** 
EVK00 


V 




**F2 


***♦♦♦* 




* UPDATE HEAD 
♦ AND TAIL OF 

* NEW GROUP 


* 
* 



*********** 



*****G 2 ********** 



*♦♦♦♦♦♦********** 



* IS IT 

THE END OF 
k. GROUP . 



A3 * 
. *ARE ALL*. 
.* THE *. YES 

->*. EQUIVALENTS .* 

♦ .PROCESSED.* 



♦ ♦B3******* 



-—♦INITIALIZATION * 

* OF GROUP * 
♦ PARAMETERS * 

♦'♦♦♦♦♦♦**** 

♦ ♦♦* 

* * 

* C3 * — X 

**♦♦ • 

EV820 V 

♦♦♦♦*C3 ****♦♦♦*** 



***************** 



.* . 

D3 *. 

• * IS IT * 

NO .* THE FIRST** 

— *. VARIABLE OF 

*. GROUP .* 



*****E3 ********** 

* * 

* CREATE EQUBLK * 

* * 

* * 
***************** 



EV870 V 

♦♦♦♦*F3 ********** 
♦PUTTBL 043A1* 

*PUT DISPLACEMNT* 
* AND EOUBLK * 
♦POINTER IN TOV * 
***************** 



EV900 

NO .4 
X — *. 
• 4 

V 

**** 
► * 
k C3 * 
k * 

**** 



->* A3 4 

♦ 4 
***♦ 



G3 ♦. 
.* IS IT *. 

THE LAST * 
VARIABLE IN 
. GROUP .* 



**A4******* 



->*INITIALIZATION * 
* OF GROUP * 
* NUMBER * 
*********** 



**** ■ 
EV810 V 

*****B4 ♦♦♦*♦♦♦♦♦* 

* SEARCH THE * 

* FIRST VALID * 

* GROUP * 

* * 
***************** 



,* IS THE *. 
. LAST GROUP . 
♦. PROCESSED. ♦ 



♦ ***D '(*♦♦♦***** 

k RETURN 4 

k * 

*************** 



♦SAVE HEAD TAIL *- 

* AND GROUP * 

* NUMBER IN TOV * 

***************** 



* THERE A 
POINTER TO 

♦ .TABLE TOV. 



>* UPDATE * 

* DICTIONARY * 

* ENTRY * 

***************** 
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PHASE 30 



Phase 30 generates the PL/I target program, 
and all comments and messages. It uses two 
utility routines: UPRNT, which is 
described in detail later in this section, 
and GETTBL. 

This phase draws its input from SYSUT1 
and from the dictionary (TDI) and the 
tables associated with it. 

After initialization of all phase para- 
meters r Phase 30 generates a PL/I PROCE- 
DURE statement. The label of this state- 
ment is either that of a FORTRAN subprogram 
or the LCP name MAINPRO in the case of a 
main program. 

Phase 30 then processes identifiers that 
appear in COMMON statements. The elements 
of a labeled or unlabeled block, together 
with their attributes, are declared as 
minor structures at level 2. The major 
structure is declared EXTERNAL; it is iden- 
tified by the COMMON block name (TBK) if 
the block was labeled by the programmer; if 
not, it is identified by the LCP name 
UNLABCM. 

All blocks created in Phase 20 are then 
placed in a DECLARE statement; these 
embrace EQUIVALENCE blocks when they do not 
include a variable which is part of a COM- 
MON block. 



with it is placed after the INITIAL 
attribute. 

• Print files are declared according to 
the information saved by the LCP in the 
initialization procedure. 

Executable statements are generated 
next; they are checked for being a PL/I 
internal procedure (converted statement 
function) . When one is encountered, the 
attributes of each parameter are generated 
in a DECLARE statement, using pointers in 
PL/I text and dictionary. 

Finally, the error messages, if any, are 
printed on SYSPRINT. 

The output from Phase 30 is in the form 
specified by the user in his EXEC control 
card, either in printed form on SYSPRNT or 
in punched-card form on SYSPCH. 

On completion of Phase 30, control 
returns to the Control Phase. 

The overall flow of Phase 30 is illus- 
trated in Charts 053 and 054. 



PHASE 30 ROUTINES 



Next, Phase 30 examines the dictionary, 
generating DECLARE statements for all iden- 
tifiers that have not appeared in CDHM0N 
statements and which must be explicitly 
declared: variables of a specified type, 
array names, procedure names, labels, egui- 
valenced items, and initialized elements. 

The eguivalenced items are declared in 
two-level structures, where the first ele- 
ment of level-2 is a dummy variable giving 
the displacement of the variable in front 
of the EQUIVALENCE block (or the COMMON 
block if this item is eguivalenced with a 
variable appearing in COMMON) and the 
second element of level-2 is the eguiva- 
lenced item. 

• When the type of a variable is found to 
be CHARACTER in the dictionary (TDI) 
entry, the variable is declared with 
the CHARACTER attribute. 

• If a TDU table exists, each LCP-created 
variable is declared with the CHARACTER 
attribute. Then, the string of charac- 
ters saved in table TDT and associated 



This section describes the utility rou- 
tine UPRNT, which is used by Phase 30 only. 
Phase 30 also makes use of the utility rou- 
tine SETTBL, which is described in the sec- 
tion " Utility Routines." 



U£RNT . Chart_0 55 



Purpose: To generate declarative 
statements. 

Called_by.: PH30 

££°.£6§siri3 : Tfte input to this routine is a 
character- string in the area W3RD. A line 
of buffer is initialized. Each time a line 
in the buffer is full, this line is placed 
on SYSPRINT and the next line is initia- 
lized. The output from this routine is the 
PL/I statement in the buffer. 

Routines called: None. 



Exit: Calling routine. 



Chart 053. Overall Logic of Phase 30, Part 1 of 2 



♦***A1* ******** 

* * 

K ENTER * 

* * 
*************** 



B1 *. 

.* IS IT *• 

.♦SUBROUTINE 

OR 

♦.FUNCTION . 



♦INITIALIZATION * 

* * 

* * 

*********** 



***D1* *********** 



***************** 



***F1* ****** :!•**** 

* PRINT * 

•PROCEDURE' 
* STATEMENT * 

***************** 



UH10 

*****G 1********** 
*UPRNT 055A1* 



HAINPRO: *< 

PROCEDURE * 

OPTIONS(MAIN) * 
***************** 



X— >* GET VARIABLE 
* NAME(TDI) 



***************** 



*****B2 ********** 



***************** 

**** 

* * 

* C2 *-> 

* * 
**** 

C2" 



IS * 
THERE 
ANOTHER 
.VARIABLE 



***** 
*054* 
* A1* 













V 


UC89 




.*. 
H1 * 
* APE 


YES 




THERE 


X — * 




COMMON 


' 


* 


BLOCKS 



**** 


• 




V 


UE01 


. *. 




J1 *. 




.* *. 


NO 


* NO MORE 


X--* 


EQUIVALENCE 




*. . 




*. . * 


V 


*. .* 


**** 


* YES 






E2 * 


< 


* 




**** 






V 


UV01 


. *. 




K1 *, 




.* IS *. 


YES 


* THERE AN 


X—* 


ENTRY IN. 


' 


*. TDI 




*. . * 


V 


*. .* 


**** 


* NO 


* 




C2 * 


• 


* 


V 


***• 


***** 



GET A NAME 
FROM (TEH) 



***************** 



F2 *. 

, *IS THIS*. 

NAME 

ALREADY 

DECLARED . 



G2 *. 
.♦ONE OF *. 
YES . * ITS * 

<--*. VARIABLES IN 
*. COMMON .1 
♦ .GROUP.* 
♦. . * 
* NO 



* PREPARE * 

* DECLARE * 

* EQUBLK' * 
***************** 



*****J2 ********** 



***************** 



***************** 



**** ■ 

UC90 V 

*****A3 ********** 
♦GETTBL 0U0A1* 

X — >* GET BLOCK * 

* NAME(TBK) * 

* * 
***************** 



.* IS IT *. 

*. AN EMPTY .* 

*. BLOCK .* 

*. .* 

*. .* 

* NO 


YES 
X 

V 

**** 
* 
* K3 

* 




**** 


UC02 V 

*****C3 ********** 
*UPRNT 055A1* 





* PREPARE 

* "DECLARE" OF 

* BLOCK NAME 
***************** 

**** 

* * 

* D3 *-> 

* * 
**** 

UC06 V 

*****D3 ********** 
♦GETTBL 040A1* 

* GET VARIABLE * 

* NAME(TCM) * 

* * 
***************** 



E3 
* 

IS 
IN E( 

GRC 

*. 


*. 

IT "*. YES 
JUIV. .* 

Sup .♦ 
.♦ 


*****Et********** 

* COMPUTE * 
♦DISPLACEMENT OF* 

>♦ EQUIV. ♦ 

* GROUP/COMMON ♦ 

* GROUP * 


* . 


.* 


***************** 



*****F3 ********** 

* GENERATE LIST * 

* OF ATTRIBUTES * 



***************** 



.* THERE *. NO 

ANOTHER .* X 

♦.VARIABLE .* 



♦PREPARE A COMMA* 
♦ ♦ 

***************** 

« **** 

X->* D3 * 

* * 

**♦♦ 
UC15 

*****J3 ********** 
*UPRNT 055A1* 



***************** 
**** 

* K3 *-> 

* * 
**** V 

18 

K3 



* . 



IS *. 
,* THERE 
ANOTHER 
*. COMMON . 
♦ .BLOCK.* 
♦ . .♦ 
♦ NO 
< 

- — • X 



Phase 30 79 



Chart 054. Overall Logic of Phase 30, Part 2 of 2 



***** 

*05M* 
* A1* 



'FROM 

' 053C2,K1 



**** 

* * 

* A3 1 

* * 
**** 



.* *. YES 

MULTIPLE .* 

*. RETURNS .* 



♦PREPARE BRANCH * 



***************** 



***************** 



*****C2 ********** 



***************** 



***************** 



***************** 



***************** 



***************** 



***************** 



**J2******* 

* * 

->*INITIALIZATION *- 
* * 

* * 
*********** 



***AU************ 

* PRINT * 

-> MODIFIED 

* NAMES * 

***************** 



***BH************ 



***************** 



****C3 ********* 
» * 

k RETURN 4 

i + 

*************** 



*****D4********** 



***************** 



**** 

* * 

* E« *- 

* * 
**** 



UX05 .*. 

F<4 *. 

.* DUMMY *. 
YES .* OR NON *. 

*. EXECUTABLE .* 

*. RECORD .* 



***Ht************ 

WRITE A LINE 
* * 

***************** 



*****D5 ********** 

* GENERATE * 
♦VARIABLES LIST * 

* OF ATTRIBUTES * 

* * 
***************** 



UX100 

*****E5* ********* 
♦GETTBL 040A1* 



->* GET VARIABLES * 
* FROM TQI * 



***************** 



*****G5********** 



***************** 



**** 

* * 

* A3 * 

* * 
**** 



*****Kt* ********* 

* * *SEARCH OVERFLOW* 

* E« *< * LINE * 
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***************** 



Chart 055. UPRNT Routine 



DPRNT 

****A1 ********* 

* ENTER * 

* 1 
*************** 



B1 *. 

. * IS IT *. 

SAME STMT 

SINCE 

. PREVIOUS . 

♦.CALL .* 

*. .* 

* NO 









C2 *. 




**** 






* IS 


*. 


* 


YES 


* 


THERE 


1 


F1 *< 


* 


ENOUGH SPACE 


* 




*. 


IN THE 


. j 


**** 






*. LINE . 


* 



***D1* *********** 

* WRITE * 

PREVIOUS LINE 
* ON SYSPRINT * 

***************** 



**E1******* 



♦INITIALIZATION * 

* OF NEW STMT * 

* LINE * 

*♦♦***♦♦♦♦* 

**** 

* ♦ 

* F1 *-> 

* * 
**♦* 

V 
*****F1********** 

* COPY TEXT AND ♦ 

* DELIMITER IN * 

* BUFFER * 

* * 
***************** 



****G1******+** 

* RETURN * 

* * 
*************** 
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APPENDIX A. TABLES 



This appendix lists and describes all the 
tables used by the LCP. 



GENERAL CONSIDERATIONS 



Required information is fet 
TRAN declarative statements 
various tables. This infor 
used in the conversion of e 
ments. Certain elements of 
statements are also stored 
the same purpose. In Phase 
DECLARE statements are gene 
these tables. The length o 
of a table is shown in the 



ched from FOR- 
and stored in 

mation is then 

xecutable state- 
the executable 

in tables for 
30 r the PL/I 

rated using 

f each element 

listing. 



All entries for the tables are placed in 
an area of main storage; entries within the 
same table are chained. When the area of 
main storage assigned to these entries is 
full, the contents of that area are placed 
on SYSUT2, and the area is then usei for 
new entries. There is therefore no limita- 
tion in the size of these tables. 

The tables used by the LCP fall into one 
of two categories: 

1. The dictionary (Table TDI) . 

2. Specification tables. This category 
includes all the other tables used by 
the program, namely: Tables TBK, TCM, 
TDA, TDM, TDT, TDU, TEH, TEQ, TFM, 
TIM, TNL, TNV, TOV, TPD. 



THE_DICTI0NARY_1TABLE_TDI1 



The dictionary contains all the names used 
in the LCP and the class, type, and number 
of dimensions associated with each name. 
Names with the same number of characters 
are chained together. 

Table Overflow: If the name has dimen- 
sions, or initial values, or appears in an 
EQUIVALENCE statement, the entry in the 
dictionary is extended by creating an entry 
in the overflow table (TOV) . A pointer to 
this entry is then placed with the name in 
the dictionary. A description of Table TOV 
appears in the section "Specification 
Tables. " 

The layout of each entry in the dic- 
tionary is as follows: 



DINAM} BCD Name 
h 



DILT j Number of Characters 



DICL \ Class 
+ _. 

DITY | Type 

-+- 



— l 
1 



DIET | Explicit Type 

DILG | Length 
j. 

DIAU | Storage Class 
+ 

DIMO 1 Modify 



DIAR | Array 

| DIOV | Overflow 

i , 1 



DINAM 



DILT 



DICL 



DITY 



DIET 



DILG 



contains the symbol given to the name, 
or the sequence number if the name is 
generated. 

contains the numbsr of characters in 
the name. 



contains one of the following 
constants : 

LCVAR if DINAM is a variable 
LCLAB if it is a label 
LCENT if it is an entry nam\e 

contains one of the following 
constants : 

LCTI if the type of DINAM is integer 

LCTR if it is real 

LCTC if it is complex 

LCTL if it is logical 

LCTA if it is a character string 



contains the constant LCET when DTNAM 
is explicitly declares. 

contains, according to the length in 
bytes of DINAM: 

LCLO for a length of 1 byte 
LCLT for a length of 2 bytes 
LCLF for a length of 4 bytes 
LCLE for a length of 8 bytes 
LCLS for a length of 16 bytes 
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DIMO 



DIAU 



DIAR 



DIOV 



contains one of the following 
constants: 

LCSUF if DINAM is variable or array 

name to which a suffix must be 

added. 
LCEQU if DINAM is a reserved word 

which requires a PL/I 

equivalent. 
Zero Otherwise 



contains constant LCAU if DINAM is 
used as a parameter. 

contains the number of dimensions if 
DINAM is an array name. 



contains the overflow table pointer if 
DINAM appears in a DIMENSION, DATA, or 
EQUIVALENCE statement. 



Table_TDA_^Table_of_Variables_with_Initial 
Values£ 

I ■ * T 

| TDAP 1 Pointer to TDI | 
j j , 

| TDAH J Head Value | 

j ,. „ . < 

1 TDAN | Next Entry | 

TDAP 

contains the pointer to the dictionary 
entry. 

TDAH 

contains the head value in the EQDBLK 
including the variable. 

TDAN 

contains the pointer to the next entry 
in table TDA. 



SPECIFICATION TABLES 



This section describes the layout of the 
specification tables used by the LCP, which 
appear in alphabetical order. 



la b 1 e _T B K_JC o m m o n_ B 1 o ck _T a b 1 e}. 



| TBKN | Name 
b 1 



| TBKP | Pointer to TCM 

i j 



I 
f 

I 

i 



TBKN 



TBKP 



contains the common block name. 



contains the pointer to the entry in 
table TCM. 



Table_TCM (Common_Variable_TableX 



I TCMC | Next Entry | 

I (. < 

| TCMP \ Pointer to TDI | 

L 4 i 



TCMC 



TCMP 



contains the pointer to the next entry 
for this block. 



contains the pointer to the dictionary 
entry for the variable. 



Table_J?DM £Dimension_Tablei_ 

, — , , , 

| TDMN | Number of dimensions | 

| TDMT j Constant or Pointer | 

I +— \ 

| TDMV | Value of Pointer | 

TDMN 

number of subscripts in the array. 

TDMT 

contains one of the following 
constants : 

TDMC if TDMV is a constant 
TDMP if TDMV is a pointer to a dic- 
tionary entry 

TDMV 

contains the value of the pointer or 
of the constant. 

Table_TDU_lDummx_Variable_Tablel 

| TDUL | Length of the literal | 

| TDUI | Pointer to TDT table | 

j. + .f 

| TDUN | Dummy variable number | 

i j , i 

TDUL 

contains the length of the literal 
which is part of a FORMAT statement in 
table TDT 

TDUI 

contains the pointer to table TDT 
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TDUN 



contains the number (3 characters) of 
the dummy variable created for the 
literal (DUMMxxx) 



Table TgT (Tabj.e of _InjLtjal r Value?) 



| TDTN | Next Entry | 

I , , f 



| TDTL | Length of Literal \ 
I j < 

| TDTR | Repetition Factor \ 

1 . — h, f 

| TDTH \ Position of Element | 

I 1 ■■ 1 

\ TDTT | Type of Data j 

I 1 f 

| TDTC | Character- String | 

i 1 — , ; — , — ; — i 



TDTN 



TDTL 



TDTR 



TDTH 



contains the pointer to the next entry 
in table TDT. 



contains the number of characters in 
the string. 



contains the repetition factor. 



contains the value of the position, 
within the array, of the element to be 
initialized. 



TEHN 



TEHT 



TEHE 



TEHL 



TEHM 



TEHA 



contains the segue nee number of the 
EQOBLK. 



contains one of the following 
constants: 

LCTI if the type of the EQUBLK is 

integer 
LCTR if it is real 
LCTC if it is complex 
LCTL if it is logical 



contains the constant C.CET if the 
length or type of the EQUBLK must be 
explicitly declared. 



contains, according to the length in 
bytes of each element of the EQUBLK: 

LCLO for a length of 1 byte 
LCLT for a length of 2 bytes 
LCLF for a length of U bytes 
LCLE for a length of 8 bytes 
LCLS for a length of 16 bytes 



contains the size of the EQUBLK. 



contains the displacement of EQUBLK 
from the COMMON block if an item of 
the eguivalence chain appears in 
COMMON. 



TDTT 



TDTC 



indicates whether TDTC is numeric (set 
to 0) or alphameric (set to 1) • 



contains the character- string 
collected. 



Table_ JE H_iTable._o£^£2 jJB LK^ §L 



I TEHN J EQUBLK Number 
^ ^ 



| TEHT | Type 
| j 



-4 



1 TEHE [ Explicit Type j 

fc 1 -. _r — 1 



| TEHL J Length 



| TEHM | Size 
I— ^ f- 



1 
_ , f 

I 

! 



\ TEHA | Displacement 

| t EQUBLK/COMMON | 

I | block (if necessary) | 



l§kI§_lS2._X1.2 u .ii§.l.£li c . e ._l5. b .i.§.L 



[ TEQP 1 Pointer to TDI 
j. h 



| TEQH | Head | 

| TEQT | Tail | 

| TEQN I Next Element | 

L _!, , ^ 1 



TEQP 



TEQH 



TEQT 



TEQN 



contains the pointer to the dictionary 
entry. 



contains the head value in EQUBLK. 



contains the tail value in EQUBLK. 



contains the chain pointer to the next 
element in the eguivalence group. 
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Table ,TFH. JFgrmat^table^ 



j TFMF | Pointer to TDT table | 

| TFML \ Format label | 

| TFMR j Print File indicator | 

.j 



TFMF 



TFML 



contains the pointer to table TDT 
(packed FORMAT) 



contains the label of the FORTRAN 
FORMAT statement 



LCET if either TIMT or TIML are not 

standard 
Zero if they are 



Table_TNL_JNAMELIST_Table|_ 



| TNLN | Name 
\ \ 



| TNLP | Pointer to TNV 

i u 



» T 

I 
J 

I 



TNLN 



contains the NAMELIST name. 



TFMR 



indicates if the format is used with a 
PRINT or non'PRINT file or both,, 



Table TI M r .^Implicit Stat ement Table) 



TNLP 



contains the pointer to table TNV, 



Table_TNV_iList_of_Variable_Tablei_ 



This table contains 256 entries, one for 
each of the possible bit configurations 
accepted by the System/360. 



| TNVN | Name 

| TNVP \ Next Entry 



| TIMT | Type of Symbol 
| TIML j Length of Type 



I 
f 

I 
^ 



I TIME | Standard or not 



TNVN 



TNVP 



contains the variable name pointer. 



contains the pointer to the next entry 
under this NAMELIST name. 



TIMT 



contains one of the following 
constants: 



Table TOV_iOverf low_Table)_ 



TIML 



TIME 



LCTI if the type of symbol is integer 
LCTP if it is real 
LCTC if it is complex 
LCTL if it is logical 
Zero if the first character of the 
symbol is not alphabetical 



contains one of the following 
constants : 

LCLO for a length of 1 byte 
LCLT for a length of 2 bytes 
LCLF for a length of 4 bytes 
LCLE for a length of 8 bytes 
LCLS for a length of 16 bytes 
Zero if the first character of the 
symbol is not alphabetical 



contains one of the following 
constants: 



| TOVD | Pointer to TDM 



| TOVE | Pointer to TEH 
j h 



| TOVP | Displacement 



| TOVT | Indicator 
l_ 1. 



J TOVI | Pointer to TDT 



TOVD 



TOVE 



TOVP 



contains the pointer to the entry in 
table TDM (array) . 



contains the pointer to the entry in 
table TEH for the EQUBLK containing 
the variable (equi valenced item). 



contains the displacement. 



Appendix A 85 



TOVT 



TOVI 



Table_TPD_Jpo_LooE_Label_ Tabled 

is used in Phase 2 to indicate whe- 
ther or not the variable has already This is a push-down table which is built up 
been placed in an EQUBLK. by the GETCRD routine. When GETCRD returns 

control to Phase 10, this table is empty 

and no longer used. 

contains the pointer to the entry in 

table TDT. • 



End of DO Loop Label | 



TPDL 

contains the label of the end of the 
DO loop. 
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APPENDIX_Bi FORTRAN_TO_PL^I_SUBROUTINE_LIBRARY 



The LCP provides a subroutine (LBLNK) which • plus sign in BCDIC (&) is replaced by + 

is invoked at PL/I target program execution 
time to process the external form of numer- 
ic input data. • D is changed to E 

If the option BLKZR has been specified 
at conversion time, LBLNK is generated to • An all blank field is replaced by 

convert E-, F- , and I-format items which 

refer to at least one non-PRINT file. The • If a blank appears after E, it is 

length of the data field is passed as an replaced by + 

argument. LBLNK makes the following 

alterations during the transmission of • other embedded and trailing blanks are 

external data: replaced by zeroes. 
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APPENDIX C. STORAGE MAP 



The following diagram illustrates the way 
in which the LCP uses main storage. 



The routines PUTTBL, GETTBL, ENTTDI and 
CONVEB are written in Assembly Language. 



The various tables are in the Communica- 
tion Area. 

The exact sizes of the components of the 
program are not shown since they depend on 
the options used to compile the LCP. 



Initialization 
Procedure 



LTCOL 



FNPRO 



DMPRO 



NLPRO 



System /360 
Operating System 

Communication Area 
for the LCP 

Static PL/I Library 

Routines in 
Assembly Language 

Control Phase 



PhIO 



FTPRO 



RTPRO 



I0PR0 



ARPRO 



Ph20 



Ph30 



CAPRO IFPRO ALPRO 
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Where more than one reference is given, 
the first page number indicates the major 
reference. 
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CMPRO 22 

COLUMN 25 

comments cards 24 

COMMON 8 4 

COMMON block 78,84 

COMMON statement 22,78 

communication area 88 

communication area, LCP 12 

COMPLEX statement 23 

CONTINUE statement 25 

control cards, LCP 12 

control phase.... 10,7 

control phase, overall logic 11 

COPRO 2 4 

CSHL 13 

CS NA 13 

CSNU 13 

CT PRO 2 5 

D-format code 26 
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DATA 27 

DATA literals 32 

data-set reference number 12 
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DIAU 83 
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DI LG 8/2 

DILT. 8 2 

DIMENSION statement 22,83 

dimensions 32 
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DINAM 82,83 
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DMPRO. 22 

DO statement 25 

DOPRO 25 
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DOUBLE PRECISION 23 

DTPRO 74 
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E-format code 26 
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EDPRO 22 
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ENTRY statement.. 23 
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EQPRO . . * 22 
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EQUIVALENCE statement 22,74,83 
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ERMS 30 
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ETPRO 23 

EVPRO 44 
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executable statement proces- 
sing routines 23,21 

EXPRO 23 

EXTERNAL statement 23 

F format « 87 
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FORMAT reference number 13,27 

FOKMAT statement 25,83 

FNPRO 23 
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function call 20 
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NLPRO 23 
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packed FORMAT 25,27 
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PAR 2 25 
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PAUSE statement 28 
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PRINT file 12 
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